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NOS REVUES 


Dès que la revue est chez l'imprimeur, le 
sommaire apparaît sur la page concernée. 


Le lecteur peut également y trouver la liste 
des produits spécifiques à sa revue (dis- 
| quettes, cassettes, livres). 


| LA BOITE A LETTRES 


Déjà utilisée par des lecteurs de CPC et de 
Mégahertz, elle vous permet de poser vos 
questions techniques chaque jour — 24h sur 
| 24h — sans avoir à attendre que la ligne de 
| téléphone soit libre les mercredi et vendredi. 


| jour | 
| De plus, vous pouvez, entre lecteurs, écrire, 


techniques. 


| pseudo aux normes télématiques. 
l 


Î 


Les correspondances sont relevées chaque | 


recevoir des messages, faire des échanges | 


| Les boîtes à lettres sont ouvertes sous votre | 


= FAITES 36.15 ET TAPEZ MHZ po 


CE QUE VOUS OFFRE 
NOTRE SERVICE SUR MINITEL 


Nous disposons d'un service MINITEL 
que de nombreux lecteurs connaissent bien maintenant. 
Outre l'information diffusée, 
il devient un instrument de dialogue permanent 
entre vous et notre rédaction. 


LES PETITES ANNONCES 


24h sur 24h, 7 jours sur 7, elles sont acces- 
sibles. Nous venons d'améliorer ce service. 
Depuis le 1er janvier 1987, c'est chaque 
jour que les annonces sont mises en place. 
De plus, vous pouvez DIRECTEMENT pas- 
ser vos annonces sur le serveur. 


DES INFORMATIONS 


Des informations sont à votre disposition et 
régulièrement mises à jour, ainsi que les 
éventuelles corrections de listings en cas 
d'erreur. 


NOS PRODUITS 


Nos nombreux revendeurs peuvent utiliser 
le MINITEL pour passer commande. L'en- 
semble des produits disponibles est présen- 
té. Nous avons simplifié au maximum la pro- 
cédure. Lecteurs et revendeurs peuvent aus- 
si vérifier si le produit est disponible et quel 
est son prix de vente public. 


36.15, TAPEZ MHZ 
ET FAÎTES VOTRE CHOIX 


Les feuilles tombent à l'automne. Chacun d'entre nous est habitué au changement de couleur des 
feuillages. 

Cette année, les feuilles sont tombées en janvier. Assez nombreuses, 3 % d'augmentation sur les 
travaux, 3 à 5 % sur le papier et celui-ci représentant quelques tonnes... 

14 % d'augmentation prévue au 30 Juin sur les frais PTT. Quant aux frais de gestion des NMPP, ils 
suivent la courbe. 

Le cumul de toutes ces augmentations amène notre direction à augmenter le prix de CPC de 1 franc. 
Une bonne gestion assure la pérennité d'une bonne revue. Nous espérions échapper à l'augmentation, 
nos fournisseurs en ont décidé autrement. 


S. FAUREZ . 
Directeur de la publication 
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Un faux compatible est un poison ! 
voici l'antidote : 


Ta MEMOIRE, 
Ton TURBO, 
Ton DOS +, ton GEM, 
Ton TURBO-PASCAL, 

Ton PRIX … JE CRAQUE! 
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DES COMPATIBLES PARTOUT 

De nombreux constructeurs asiatiques et même français 
proposent des compatibles PC à des prix très accessibles 

Les Jasmins Turbo par exemple se vendent aussi en 
grande surface comme des produits de consommation 
courante 

Toutefois, la grande variété des prix et configurations 
ainsi que les différents niveaux de compatibilité posent à 
l'acheteur non averti un problème de choix 

Voici quelques critères qui vous permettront de définir 
le type de matériel le mieux adapté à vos besoins 


COMPATIBILITE SOFT 

Tout logiciel écrit pour le standart IBM PC, tant qu'il n'est 
pas protégé pour l'exclusivité d'une marque d'ordinateur 
donnée, doit tourner complètement sans aucun problème 
avec la version du système d'exploitation correspondant, 
comme MS DOS, DOS PLUS, PROLOG, etc 


COMPATIBILITE HARD 

L'intérêt du PC est d'être un système ouvert Il doit être 
possible de rajouter n'importe quelle carte électronique con- 
çue pour le standard cartes graphiques couleur haute réso- 
lution EGA, contrôleurs de disque dur. contrôleur d'unité de 
sauvegarde, carte d'entrées/sorties, carte de communica- 
tion, où encore, une carte d'analyseur logique pourquoi pas 

Encore faut-1l vérifier que l'on dispose de ja place néces- 
saire pour installer ces cartes 

Les écarts entre les connecteurs d'extention sont norma 
hisés mais certaines cartes trop épaisses prennent la place 
de deux connecteurs I] sera bon de s'assurer qu'il est pos- 
sibie de disposer d'au moins cinq connecteurs libres Pré 
voir par carte un emplacement de 34x12 cm pour une épais 
seur de 2 cm 


TURBO 

La vitesse de l'IBM PC est de 4,77 MHz [lexiste mainte 
nant des PC appelés « TURBO », qui tournent à 8 MHz Ces 
derniers permettent d'obtenir des performances d envir 
1,5 fois supérieur en vitesse à l IBM PC Afin de conser 
une réelle compatibilité, vénifiez que votre Turbo fon 
également en 4,77 MHz Ces deux vitesses doivent être com 
mutables au clavier 


LES COMPATIBLES PC LES PLUS VENDUS 
LES JASMINS TURBO HQ TELEMATIQUES 
L'ASSURANCE DES GRANDES MARQUES 


D Li 


HQ pour Haute Qualité. Chaque modèle est équipé 
d'office d'une carte turbo double vitesse 8 MHz et 4,77 
MHz commutable au clavier, indispensable pour une vraie 
compatibilité. De la carte CGA : 16 couleurs/graphique 
avec une sortie vidéo composite couleur, une sortie vidéo 
N et B, une sortie RVBI, une interface crayon optique. 
La carte multi [/0 comprend deux ports série dont un 
équipé. Une interface imprimante parallèle Centronic, une 
entrée manette de jeu, une horloge/calendrier permanent 
sauvegardée par batterie, un contrôleur pour deux lecteurs 
de disquette. 


Clavier AZERTY aux normes IBM avec indicateurs 
lumineux. 


Souris trois touches JASMIN Mouse de haute pré- 
cision et faible course. 


Boîtier métallique « FLIP TOP ». Alimentation 150 W, 
ventilée, intégrée dans l'unité centrale, ce qui permet une 
évolution sans soucis de la configuration du système. 


Carte-mère équipée d'office de 640 K RAM, du 
microprocesseur 8088-2, d'un emplacement prévu pour 
le coprocesseur arithmétique 8087 et de 8 ports d'exten- 
sion à connecteurs longs. 


CGEE ALSTHOM EI. + 


A compter du 1°* Mars 87 TRAN vous offre en plus de la garan- 
tie usine d’un an, un contrat de maintenance assuré par le réseau 
national des laboratoires de CGEE-ALSTHOM. 

Les déjà possesseurs d’un JASMIN pourront accéder à l'option 
de maintenance et au logiciel MASTER MIN contre la somme 
de 400 F. Cette offre est valable jusqu'au 30 Avril 1987. 


COMMENT CHOISIR UN COMPATIBLE PC 


CARTE MERE : 

La carte mère est le cœur du système De plus en plus 
la complexité des logiciels réclame de la mémoire En par- 
ticuher des logiaiels intégrés professionnels. 512 K RAM sont 
très souvent insuffisants Si vos finances vous le permettent 
optez dès le départ pour la capacité maximale soit 640 K 
Une extention ultérieure serait plus onéreuse 


Il est bon de savoir qu'il est possible d'augmenter de 
façon notable la vitesse de calcul de votre micro par adjonc- 
tion d'un coprocesseur.arithmétique. 8087. Aussi si vous pen- 
sez en avoir besoin, choisissez une carte mère possédant un 
emplacement prévu pour ce circuit 


ALIMENTATION : 

Le point faible de la plupart des micros réside dans l'ali- 
mentation. L'almentation classique d'un PC est d'au moins 
135 W. Si vous souhaitez utiliser votre PC plus d'une heure 
par Jour, assurez-vous de l'efficacité de sa ventilation, de 
même que de la possibilité d'augmenter la puissance de l'al- 
mentation par simple échange 

Une alimentation de 150 W sera préférable surtout si 
vous envisagez le rajout de cartes d extention, où encore | u'i- 
hsation d'un disque dur 
BOITIER 
Q, 


votre choix sur un b ique permettant de préfé- 
rence un accès aisé à vos cartes électroniques Les boîtiers 
appelé « Flip-Top » sont encore le plus pratiques Ils permet- 
tent une ouverture rapide par simple pression, à la façon d un 
capot d automobile 


Ch - 
ropriée Assurez- 
écran facilement 


TS 
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Chaque JASMIN Turbo est accompagné : 

+ Du système d'exploitation DOS PLUS, de DIGITAL 
RESEARCH INC., compatible avec le système MS.DOS 
2-11 et CP/M 86 qui rend possible les transferts de fichiers 
entre les deux standards. 

+ Du système d'exploitation d'environnement graphi- 
que G.E.M. de DRI qui permet au JASMIN Turbo d'utili- 
ser toute application écrite sous GEM disponible sur le 
marché. Par exemple le GEM-DESKTOP (pour bureaux) 
permet d'utiliser le JASMIN avec des icônes comme un 
MACINTOSH. Convivialité oblige ! 

+ Du langage structuré le plus vendu au monde : 
TURBO/PASCAL de BORLAND avec son manuel 

e Du logiciel MASTER MIN qui transforme le JAS- 

MIN connecté à un Minitel en serveur VIDEOTEX 
monovoie. 
Tous les logiciels ludiques et professionnels « tour- 
nent » sur les JASMINS Turbo HQ. Nous n'avons 
pas encore trouvé de logiciel qui ne marche pas avec 
les JASMINS. 

Le modèle HQ-2 est équipé de deux lecteurs 51/4. 

Le modèle HQ-20 est équipé d’un lecteur 51/4 et 
d'un disque dur 20 MB rapide (65 m/s) avec parkage de 
tête automatique au coupure de courant. 


VTT SDS PE Po ES 
IBM PC/XT sont des Marques Déposées de International Business Machine Corporation. DOS PLUS-GEM sont des Marques Déposées de DIGITAL 
RESEARCH INCORPORATION. TURBO-PASCAL est une Marque Déposée de BORLAND INTERNATIONAL. JASMIN-TURBO est une Marque 
Déposée de T.R.A.N.. MASTER MIN est un logiciel de MINI PUCE. La Société T.R.A.N. se réserve le droit de modifier toute spécification sans préavis. 


CLAVIER : 


Attention, le PC n'est pas dans le clavier ! Un clavier à 
curseur séparé, vous sera peut-être utile par la suite. Vous 
devez pouvoir changer de clavier à votre convenance. Pour 
cela, 11 vous faut un clavier aux normes de connection IBM. 


LA SOURIS 


Il existe de nombreuses qualités de souris dont les prix 
varient de 200 F à 2000 F 


La qualité d'une souris, réside dans sa sensibilité, sa 
résolution, sa course. La précision doit être bonne sur une 
petite course. Il doit être possible de balayer l'écran sans 
avoir à balayer tout le bureau 


Attention, certains logiciels nécessitent l'emploi de trois 
touches sur la souris 


DISQUE DUR 


Lorsque vous travaillez avec de nombreux fichiers ou de 
longs fichiers, un disque dur vous est nécessaire. Tous vos 
logiciels et fichiers seront stockés en permanence sur le dis- 
que dur qui peut suivant le modèle contenir 10, 20 ou 40 mil- 
ons d octets. Le temps d'accès moyen à une information 
varie de 30 m/s à 300 m/s On dit d'un disque dur qu'il est 
rapide. lorsque son temps d'accès moyen est inférieur à 80 
m/s 


Pour ne pas avoir de problèmes, préférez les disques 
durs à parkage de tête automatique. En cas de coupure de 
courant ou lors de la mise hors tension de votre « becane », 
les têtes de lecture de votre disque s'éloigneront de la sur- 
face magnétique afin de se caler pour se protéger contre 
les chocs et vibrations notamment lors des déplacements 
Les anciens modèles ne possèdent pas cette fonction qui 
nécessite | emploi d un utilitaire Il suffit d oublier une seule 
fois de parkeret adieu le travail de plusieurs mois. Le dis- 
que dur à parkage de tête automatique est un « MUST » de 
sécurité 


Un PC non évolutif ne sera jamais un PC 


Michel ROY 


TARIF AU 1° MARS 1987 


Sans moniteur Avec moniteur Avec moniteur 
mono 12" couleur 14 


HQ-2 6.483,97 HT 7.242,83 HT 8.599,16 HT 
HQ-20 10.615,51 HT 11.374,36 HT 13.145,03 HT 
Imprimante qualité courrier CITIZEN 120D, 

120 :0ps;' 80. C0. srisnm ten. 2.099,49 HT 
Imprimante qualité courrier plate 

type BROTHER ou CENTRONIC 180 cps, 

136 col. grand chariot.................. 4.207,42 HT 
JASMIN Mouse, souris trois touches 

haute: précisions:25 sceau 674,54 HT 


Toutes ces imprimantes sont compatibles IBM. 


Le tarif ventes diverses est envoyé avec la 
documentation. 


Des logiciels professionnels pour comptabilité, 
facturation, gestion sont disponibles. Téléphoner à 
T.R.A.N. pour renseignements complémentaires. 


Je désire recevoir une documentation complète, tarifs, 
liste revendeurs, sur la gamme 
JASMIN TURBO HQ. 


Code postal................ Tél tons 
Renvoyez ce coupon à : 


TRAN INFORMATIQUE Avenue Lavoisier 
Z.I. Les Fourches, Les Espaluns 
83160 LA VALETTE DU VAR-Tél. 94.21.19.68 


ACTUALITÉS 


SPRECHEN YOU ESPAGNOL ? 


TMPI (Techni Musique et Parole 

Informatique) a annoncé à plu- 

sieurs reprises que ses synthé- 
tiseurs vocaux pouvaient parler d'autres 
langues que le français. A ces fins, TMPI 
propose un concours à ceux parlant par- 
faitement une langue étrangère. Les can- 
didats auront à réaliser, avec Vocagra- 
phic et les dictionnaires de mots exis- 
tants, un langage phonétique. 
Pour chaque langue, les gagnants se ver- 
ront attribuer au choix un digitaliseur Ara 
ou une tablette graphique Graphiscop. 
Pour tous renseignements complémen- 
taires, contacter TMPI, Centre commer- 
cial, rue Fontaine-du-Bac, 63000 
Clermont-Ferrand, tél. 73.26.21.04. 


CLUB AMSTRAD A VITROLLES 


Le club s'appelle Amscroze 

parce qu'il est installé à la Mai- 

son de quartier de la ferme de 
Croze à Vitrolles. || regroupe une ving- 
taine d'’adhérents, tous passionnés 
d'Amstrad, qui se sont regroupés en ate- 
liers : initiation, graphisme, utilitaires, 
etc. 
L'adhésion coûte 150 F pour l’année et 
on se réunit tous les vendredis à partir 
de 18h. On peut même obtenir des ren- 
seignements complémentaires en télé- 
phonant au 42.79.59.28. 


LA FONDATION 


MICROPRESSE-FIL 
Créée sous l'égide de la Fonda- 
tion de France, la fondation 


: Micropresse-Fil est parrainée par 


la DGT et les sociétés Bull et Digital Equi- 
pement France. 

Elle a trois objectifs : 

— favoriser le développement de l'in- 
dustrie française du logiciel micro- 
informatique ; 

— aider les créateurs indépendants fran- 
çais à développer leurs logiciels et à 
accéder aux marchés français et interna- 
tionaux ; 

— permettre une meilleure connais- 
sance des conditions de réussite des 
nouveaux logiciels mis sur le marché. La 
Fondation n'a pas pour objet la promo- 
tion d'un standard particulier. En 1986, 
elle a lancé deux actions d'envergure : 
° Prenant pour base l'introduction de 
l'informatique dans l'enseignement, elle 
a lancé en septembre un concours des- 
tiné à récompenser les meilleurs didac- 
ticiels dans le cadre du plan Informatique 
pour tous. Dommage que les écoles pri- 
vées, richement équipées en Amstrad et 
Apple ou compatibles IBM, aient été 
tenues à l'écart. 

e Elle a réalisé un ‘‘livre blanc’ sur la 
création de logiciels de façon à bien 
poser les problèmes qui freinent l'essor 
de la création logicielle en France. 
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DU SERVICE POUR PCW 


JJR Services est une jeune 

société qui a crû dès son appa- 

rition au PCW et qui a considéré 
cette famille de machines comme l'outil 
idéal de gestion pour les commerçants. 
Elle a développé de nombreuses applica- 
tions spécifiques qu'elle livre clés en 
main avec une formation adaptée pour 
l'utilisateur. Le succès est tel que JJR 
étend son activité aux compatibles PC. 
JJR Services, 5 rue Paul-Bert, 35000 
Rennes, tél. 99.38.47.03. 


NOUVEAU SERVEUR MINITEL 


La société PC Mart qui distribue 

une pléiade de programmes uti- 

fitaires géniaux pour compati- 
bles PC vient de mettre à la disposition 
des passionnés un serveur accessible par 
le (1) 45.85.07.86. On y trouve une 
messagerie et des tas d'infos sur les nou- 
veautés, les mises à jour, les dernières 
versions, etc. 
PC Mart, 93, avenue de Choisy, 75013 
Paris, tél. (1) 45.85.14.96. 


LE PC 1512 : AMSTRAD 
AUGMENTE LA PRODUCTION 


Lancée au début du dernier tri- 

mestre 1986, la production des 

PC 1512 équipés d’un disque 
dur a du mal à suivre la demande. Reven- 
deurs et acheteurs potentiels unissent 
leur voix pour protester contre l'absence 
de machines. Quel succès pour Ams- 
trad ! D'un marché estimé initialement 
autour de 5 %, on en arrive à près de 35 
% ! Amstrad espère produire près de 70 
000 machines par mois. 
D'autre part, le bulletin d'activité scien- 
tifique, technique et industrielle de 
Grande-Bretagne, publié par l'ambassade 
de France, annonce une augmentation 
de 12,5 % des prix à partir de janvier 
1987 ! 


JOYSTICK : 
CHOISISSEZ LA FIABILITE 


Il est désagréable d'acheter un 

joystick pour trucider des enva- 

hisseurs et se rendre compte, 
après quelques heures d'utilisation, que 
le manche vous reste dans la main ! Ne 
rigolez pas, ça arrive ! L'éventail des joys- 
ticks disponibles est très large. Amstrad 
recommande le sien, bien entendu, mais 
nous le déconseillons au vu de sa fragi- 
lité. Son avantage ? Une prise pour une 
seconde poignée. Et bien désormais, 
vous pourrez opter pour le joystick Super 
Shot 5000, diffusé par CTS. La prise 
pour un second manche le rend tout 


adapté à une utilisation sur Amstrad. Les 
contacts sont établis au moyen de 
microswitches, ce qui garantit à la fois 
la longévité et la prévision du déclenche- 
ment. Quoi de plus désagréable, en effet, 
de presser à 2 fois un bouton pour déco- 
cher un missile ! On n’a qu'une vie, que 
diable, protégeons-là ! 

Côté ‘‘ergonomie”’, le Super Shot 5000 
n'a rien à envier à ses concurrents. Il est 
équipé de 4 ventouses pour conserver 
une main de libre, d'un poussoir de tir en 
bout de manche tombant parfaitement 
sous le pouce, doublé d'une barre dispo- 
sée sur le socle actionnant 2 contacts. 
Si avec cela vous ratez l'adversaire, allez 
jouer à la marelle ! 

Fabriqué en Italie, le Super Shot 5000 
est diffusé par CTS. Prix approximatif : 
175 F. Revendeurs, renseignez-vous au 
(1) 43.85.59.28. 


LES NUMEROS HORS 
SERIE DE CPC 


GRATUIT* 


* 


Si vous vous abonnez 


à partir du 1/1/87 
Bon de commande page 111 


DES DISQUETTES 3’’ 
EUROPEENNES 


Là où même les Américains 
abandonnent, les Européens 
persévèrent. Une unité de pro- 
duction vient d'être installée à Milan pro- 
duisant à l'heure actuelle 100 O00 dis- 


quettes 3'’ par mois. La capacité visée 
pour fin avril est de 3 à 400 000 unités. 


Il faut souligner que cette usine de fabri- 
cation de 3’ est unique en Europe. On 
va pouvoir dormir tranquille. Finie l’ar- 
naque à 70 F la disquette ! Pour le 
moment, les petites galettes magnéti- 
ques (double face, double densité), enro- 
bées de plastique noir, sont livrées sous 
pochette transparente. Elles seront bien- 
tôt disponibles en boîtier plastique, pour 
satisfaire à la demande des utilisateurs. 
Achetées par 10, elles vous seront 
livrées dans un emballage en plastique 
souple formant un élégant petit étui. 
CTS assure la vente aux revendeurs de 
ces disquettes ‘’Made in Italy’’. Rensei- 
gnements au (1) 43.85.59.28. 


PONEY EXPRESS 


Notre confrère ‘‘Country Hits 

Magazine’”, revue spécialisée de 

country music (Ah, Dolly Par- 
ton, Raaa Lovely..), s'est lancé dans 
l'aventure télématique, ce qui a donné 
‘’Poney Express'', serveur vidéotex 
développé par l'un de ses membres sur 
CPC 6128 et accessible par le (1) 
48.92.11.25. Deux rubriques sont 
dédiées à la programmation et à l’instal- 
lation d'un micro-serveur sur Amstrad. 


AMSTRAD EXPO : 
UN GRAND SUCCES 


La société Néo Média, organisa- 
trice de Amstrad Expo, vient de 
publier un compte-rendu 
publiant les résultats de la manifestation 
qui s’est tenue à La Villette, du 21 au 24 
novembre. Par rapport à l'exposition de 
janvier, il faut noter : 
— plus de 30 exposants en plus, soit 
45 % d'augmentation ; 
— 785 m2 de stand en plus, soit 125 % 
d'augmentation ; 
— 20 500 visiteurs au lieu de 10 000, 
soit 100 % en plus. 
Face à ce succès, Néo Média envisage 
d'organiser deux Salons par an. Nous 
vous communiquerons les dates dès 
qu'elles seront connues. 


Comme chaque mois, nous 


ENCORE DE NOUVEAUX JEUX 
be vous présentons la liste des 

nouveaux jeux annoncés pour la 
gamme Amstrad. Certains seront sans 
doute commercialisés lorsque vous lirez 
ces lignes et nous vous en présenterons 


un banc d'essai dans un prochain 
numéro de Amstar ou de CPC. 


TITUS 


Cette jeune société d'édition fait 
preuve d'imagination en nous 
sortant Maddog, un jeu tout à 
fait original qui nous met dans la peau 
d'un chien un peu fou, parcourant un 
dédale de 50 tableaux, à la recherche 
d'objets de première nécessité qu'il devra 
rapporter dans sa niche. Attention à la 
fourrière ! Le chien peut sauter par des- 


sus la barrière, manger dans sa gamelle, 


attraper les oiseaux ou les souris, faire 
le beau et même faire pipi sur un 
tabouret. 


LORICIELS 


Bob Winner est un jeu d'arcade 

de toute nouvelle génération. 

Sur fond d'images digitalisées, 
Bob traverse le monde à la recherche 
d'une civilisation perdue, mais de gran- 
des puissances tenteront de l'en empê- 
cher en lui envoyant leurs combattants. 
En traversant Paris, Londres ou New 
York, il devra faire ses preuves en com- 
battant à la boxe, au tir au pistolet ou à 
la ‘‘savate”’. Il lui faudra faire preuve de 
force, mais aussi d'intelligence et d'as- 
tuce pour découvrir enfin ce qu'il a tant 
cherché. 
Disk CPC : 198 F. 
Disk PCW : 220 F. 
Disk PC et compatibles : 220 F. 
Jongler avec les mots, voilà ce que vous 
propose le Maître des Mots. La disquette 
contient un recueil de 62 000 mots de 
la langue française qui vous permettront 
de jouer à 4 jeux : Anagrames, Mots croi- 
sés, Une lettre chasse l’autre et Les let- 
tres placées. Un marathon pouvant réu- 
nir jusqu'à 10 participants créera de l'ani- 
mation dans les chaumières pendant les 
longues soirées d'été. 
Disk PC et compatibles : 260 F. 


ERE INFORMATIQUE 


Despotik design est un jeu d’ar- 

cade stratégique en 3 dimen- 

sions, mais aussi un jeu de 
réflexion. Au cœur de la terre, un gigan- 
tesque laboratoire de recherche, tenu par 
des robots de la dixième génération, 
fabrique des cellules humaines ! Or, un 
aventurier s'est introduit dans le labyrin- 
the parcouru par les cellules et a 
détourné les molécules de leur chemine- 
ment, ce qui a pour conséquence de 
créer des monstres. Connaissant le plan 
du Centre, vous êtes désigné pour réta- 
blir l'ordre au sein des chaînes de 
fabrication. 
CPC : cassette, 150 F ; disquette, 220F. 


Que les fanatiques de Harry et Harry se 
réjouissent ! Ere nous a concocté une 
deuxième partie qui s'intitule Mission 
Torpédo. L'action se déroule à Los Ange- 
les en 1930 où vous allez être le héros 
involontaire d’une incroyable aventure 
criminelle. Vous aviez réussi, au cours de 
la première partie, à démêler le mystère 
de la Boîte de Rajmahal et à déjouer les 
pièges du Boss et de ses infâmes acoly- 
tes, les frères Harry. Mais, malgré votre 
sagacité, les bandits avaient réussi à 
reprendre la précieuse boîte. L'aventure 
continue |! 

CPC : disquette, 220 F. 


Grâce à Stryfe, vous allez vivre une des 
plus mystérieuses batailles du royaume 
de la Féerie, celle qui a vu s'affronter les 


bons gnômes, que vous incarnez, et les 
forces du mal dirigées par le grand Mor- 
velhin. Charmant programme ! Un jeu 
d'arcade exceptionnel qui se joue à un 
ou deux joueurs qui devrait plaire grâce 
à la multiplicité et l'originalité des adver- 
saires, la variété des décors : abbayes, 
villages, forêts profondes, places for- 
tes. ainsi que par la rapidité de l’action. 
CPC : cassette, 150 F ; disquette, 220 F. 


UBI SOFT 
Deux nouveaux produits UBI 
devraient être disponibles quand 
sortira ce numéro : 

Manhattan 95 vous plongera dans le 

monde glauque des loubards de NY. Le 

nouveau Dieu de l'arène se nomme Snail. 

C'est un rebut de la société, mal rasé et 

violent, qui fait régner la terreur avec son 

calibre 11/43. Préparez vos chaînes, ça 
va bastonner. 

Asphalt est à peine plus moral. Figurez- 

vous que, depuis 1991, une loi autorise 

les véhicules à être armés dans certains 
secteurs des Etats-Unis. Des gangs de 
pillards motorisés sèment la terreur sur 
les autoroutes. C'est dans ce contexte 
que vous avez été choisi pour une mis- 
sion sympa : convoyer un convoi de bon- 
bonnes de gaz jusqu'à Detroit par la 

Fédérale 14. Ça va péter ! 

UBI Soft distribue également des logiciels 

anglais et nous propose ce mois-ci Bomb 

Jack Il de Elire avec, en cadeau sur la 

face 2 de la disquette, Bomb Jack I. 


RAINBOW PRODUCTION 


Rainbow vous propose Ténè- 
bres, ‘Un logiciel dont vous 
êtes le héros’. Dès les premiè- 
res pages écrans, le joueur est mis en 
situation de héros pour n’en sortir que 
deux heures trente plus tard. Ténèbres 
devrait être suivi de plusieurs logiciels de 
la même série. Du suspense et de l'aven- 
ture en perspective. 
CPC : cassette, 99 F. 
CPC : disquette ou PC et compatibles 
disquette, 145 F. 


COKTEL VISION 


Vous n'avez pas les moyens de 

participer au Paris-Dakar ? Eh 

bien rassurez-vous, moi non 
plus ! Coktel Vision vient de sortir Dakar 
4 x 4, une excellente simulation qui 
vous permettra de vivre l'aventure à peu 
de frais, sans compter l'absence de ris- 
que ! 
Vous aussi, vous serez fier d’avoir vaincu 
le Ténéré. 


EXCALIBUR 


e L'Antre de Gork : vous avez 
été choisi pour remonter le 
temps jusqu'au fin fonds du 


Moyen-Age, afin de détruire Gork, 
menace perpétuelle pour notre 
civilisation. 


e La Cité perdue : le but de votre mis- 
sion est d'atteindre La Cité perdue. Seu- 
lement, bien des pièges se trouvent sur 
votre route. 


U.S. GOLD 
°e Donkey Kong : vous avez la 
possibilité de vous glisser dans 

la peau d’un courageux menui- 
sier volant au secours de sa belle, enle- 
vée par le terrible Donkey Kong... 

e Silent Service : une simulation détail- 

lée des missions sous-marines, réalisées 

dans le Pacifique pendant la Seconde 

Guerre Mondiale. 

°e Xevious : vous avez la lourde tâche 

qui consiste à empêcher toute invasion 

de notre terre par les Xevious ! 


LES EDITEURS 
D'OUTRE-MANCHE 


Gremlin, toujours aussi prolifi- 
que, nous annonce la sortie 
imminente de Monty in Paris et 
Monty in Sweden, une compilation de 
The way of the tiger, Beach Head Il, 
Barry Mc'Guigan's boxing et Rescue on 
 Fractalus, West Bank, Snooker and Pool, 


COMMUNIQUE 
DE SEMAPHORE LOGICIELS 


Lettre ouverte à nos. amis des rédac- 
tions et services de publicité, Marcel 
Le Jeune et Denis Bonomo de CPC, 
Mireille Massonnet, Philippe Lamigeon 
et Jean-Yves Primas de Amstrad 
Magazine et Les Cahiers d’'Amstrad, 
Martine Solirenne et Anne-Sophie 
Dreyfus de feu Micro-Strad, Fabienne 
Javelaud, Geneviève Grillet et Patrick 
Sionneau de Izard créations. 


Tous ceux que j'oublie dans mon émoi 
y compris les copains de l’AFP que je 
ne connais pas puisqu'ils n’ont jamais 
eu la bonne idée de prendre contact. 


Tout d’abord Bonne-Année et merci 
pour tous vos efforts en 1986 | 


Mes amis, l'heure est grave ! 


En effet, Sémaphore, non content de 
défendre depuis plus de cinq ans la lan- 
gue française dans le domaine du logi- 
ciel pour micro familiale - qui se sou- 
vient encore des jours bénis du ZX 81 
et du Spectrum introuvable et du QL 
qui n’en finit pas d'arriver - d’avoir été 
la première à introduire les utilisateurs 
de micro ‘‘domestiques’” aux joies du 
traitement de texte (avec accents ET 
cédilles pardon !), s’adonnerait main- 
tenant à la piraterie ! 


Où va le monde ? 


En effet, Sémaphore diffuse, depuis 
juin 1986, certains produits créés par 
la maison Siren Software. Depuis sep- 
tembre de la même année, Sémaphore 


Zyron, Convoy raider et enfin Krakout. 
PSS, le spécialiste des wargames, 
annonce Battlefield Germany. 

Quick Silva vient d'achever l'adaptation 
de Elevator Action, un jeu d'arcade de 
Taito (USA). 

Enfin, ANF nous prépare également un 
jeu d'arcade, Flying Farmer, où vous 
devrez tenter de capturer l'Agent 
Orange. 


PCOMPATIBLES MAGAZINE : 
LE NOUVEAU NE ! 


Les Editions SORACOM ont 

lancé un nouveau titre : PCom- 

patibles Magazine. Dédiée entiè- 
rement aux machines compatibles IBM, 
la revue propose à ses lecteurs des arti- 
cles de fond, des bancs d'essais de logi- 
ciels professionnels et de jeux, mais 
aussi des listings de programmes ‘à 
taper soi-même’’. D'autre part, dans son 
numéro 1 paru le 13 février, PCompati- 
bles Magazine offre un tour d'horizon 
complet (7 pages !) du PC 1512 d’Ams- 
trad et de son environnement. 
A ne pas manquer si vous avez un 
PC 1512 en commande |! 


reproduit sous licence une version tra- 
duite en français de ‘’Discmate 8000’ 
et s'engage à la demande de Simon 
Cobb, directeur de Siren Software 
dans la traduction de Discovery, 
Handyman et Master Disc, ces deux 
derniers produits devant devenir ‘‘Bri- 
codisc’’ que Sémaphore annonce dans 
ses publicités à fin novembre fort de 
la promesse de Siren d'envoyer les 
programmes finis ‘as soon as the pro- 
grammer returns from his holiday”. 
Entretemps, Siren Software indique 
dans ses publicités dans la presse 
anglaise que ses produits sont dispo- 
nibles auprès de deux maisons sur le 
‘’continent’’, PR8 Softwarendienst en 
RFA et Sémaphore en Suisse. 


Les tractations avec Siren Software 
continuent à Paris lors d'Amstrad- 
Expo, pendant laquelle Siren reproche 
à Sémaphore d'avoir mis un prix trop 
bas sur Bricodisc - de là à penser que 
le retard mis à ‘‘livrer’’ le programme 
est lié à ce problème de prix, il n'y a 
qu'un pas - mais un accord est cepen- 
dant trouvé et Siren promet la dis- 
quette ‘‘’soon’’. 


Surprise dans le camp Sémaphore 
quand apparaissent les annonces d'ou- 
tre Manche pour le frère jumeau de 
“Bricodisc’’ offert 75 Frs moins cher 
| Apparente surprise gênée de Cobb 
qui promet d'y mettre bon ordre. En 
effet, Sémaphore reçoit la disquette en 
question fin décembre et, lors du salon 
Amstrad de janvier à Londres, Simon 
Cobb confirme le samedi soir au 


‘‘’Pub'” du Novotel, devant témoins, 
qu'il désire que Sémaphore seul 


assume la distribution de ‘‘Bricodisc'” 
et que la publicité pour ‘Turbo 416’, 
puisqu'il faut le nommer, -cesserait à 
fin janvier. Un nouvel accord ‘‘béton’” 
avec payement ‘‘d’advanced royal- 
ties’’ substancielles, devant être signé. 


Nouveau rebondissement quand nous 
recevons le 13 janvier une lettre d’An- 
gleterre datée du 9 janvier, soit LA 
VEILLE de l'entretien avec Cobb, let- 
tre envoyée aussi au Seigneur et tous 
ses anges, je ne sais si vous figurez 
parmi ceux-ci, mais apparemment nos 
amis d’outre Channel le pensent. 


Notre première réaction (à part le 
retentissant éclat de rire) fut d'ignorer 
les péroraisons de nos amis anglais. 
Cependant, puisqu'il semble que ceux- 
ci aiment se prendre au sérieux, nous 
pensions devoir apporter réponse à 
leurs accusations. 


Sémaphore n’a pas besoin de recourir 
au piratage (même si le droit suisse 
n'offre, malgré ce qu'en dit la publicité 
pour ‘‘Turbo 416’’, aucune protection 
dans ce domaine) et a toujours travaillé 
tant avec Tasman Software (Tasword, 
etc.) qu'avec Campbell Design (Mas- 
terfile, Mastercalc) sur la base de con- 
trats verbaux et de confiance mutuelle, 
c'est sur ce point que nous avons à 
faire auto-critique, nous avons fait 
preuve avec Siren Software d'excès 
de confiance. 


Nous profiterons de cette occasion 
pour mentionner qu'aucun logiciel 
Sémaphore n'est ‘’protégé’’ et qu'une 
part substantielle de nos ventes est 
effectuée par le système du ‘‘free- 
ware’’. Nous considérons en effet que 
le vrai piratage réside dans la ‘’protec- 
tion’’ qui prive l'utilisateur de l'accès 
au programme, un peu comme si les 
marchands de disques interdisaient la 
vente de partitions musicales. Nous 
mentionnerons aussi qu'un nombre 
important de contributions au dévelop- 
pement des programmes que nous 
publions viennent d'utilisateurs qui, 
ayant eu accès au programme, l'ont 
‘’bidouillé”’ dans un sens qui nous plai- 
sait. Nous comprenons que nous reflè- 
tons là une vision de ‘’créateurs’’ par 
opposition à la vision ‘‘marchande’' qui 
ne considère le logiciel que comme un 
produit commercial parmi d'autrés. 
Notre importante clientèle française 
nous a maintes fois prouvé que les 
tenants de la protection et la presse qui 
s’est souvent faite leur porte parole (ou 
du moins leur haut-parleur) avaient tort 
quant à la ‘’maturité’’ des utilisateurs 
de l'hexagone. 


Je regrette d’avoir accaparé tant de 
votre précieux temps, j'aurais aimé 
moi même, malgré le plaisir que j'ai à 
vous parler, l'utiliser à des tâches plus 
créatrices de produits intéressants à 
vous soumettre 


Jean-Pierre CARDINAUX 


PRÉSENTE : 


DU 
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MULTIFACE II : Copies de sauvegarde de tous vos programmes sur disquettes ou 


POMANTIE 23 sur K7 575F 


POS9T CE 252 


% 73 


PRESENT v * 


LE THINGI : Maintient voslistings à côté de l'écran 80F 


sr 


FILTRES D'ECRAN : Suppriment la brillance et permettent l'utilisation de votre ordi- 
nateur sans fatigue Mono CPC : 160F 

Couleur CPC : 190F 

Mono PCW : 220F 


Les softs d'AR NOR, en EPROM ou sur disquette : 


MAXAM : Le meilleur assembleur/moniteur éditeur.Disquette : 240F 
EPROM SR ie nec teles 360F 


PROTEXT : traitement de texte ultra performant 
CPC disquette 
PCW disquette 
EPROM 


PHASOR ONE : D'une très 
grande sensibilité, convient 
aux droitiers comme aux gau- 
chers, un très long câble per- 
met une totale liberté ! Encore 
un atout : sa solidité, voici le 
PHASOR ONE. Prix 125F 


REVENDEURS, CONTACTEZ-NOUS ! 


BON DE COMMANDE 
à adresser à MICRO FAIR, 255, bd Voltaire - 75011 PARIS 
Tél : (1) 43.72.30.78 


MAXAM cmrremremenrenane d/E 240F/360F Filtre monochrome CPC 160F PHASORONE 125F 
PROTENE LS d/E 240F/360F Filtre coUlEUr CPC ne 190F hs ronics-mémoires-Amstrad 
TOR neue E270F Filtre monochrome PCW 220F 


ROMBOE ET nndeacesanesastonssse 425F MULTIFACE 11... 575F 256 K disque silicone (464, 664) 
GUIDE PAPIER PCW 100F FHINGRÉS SES NS ee 80F 256 K pour 6128 
: 256 K disque silicone pour 6128 … 
NOM in, de desde PTÉNOM EN SR CA ne EUR em CRU eee nee Ne de Pernod 
PPS PE EE OP RE NO RE PE PO AN DEVRA EE LP En RE à 12 Eee nd SUE Sr ent JULES DSL CON ENE AR ne D NS Er 


Joindre un chèque du montant de votre commande + 10 F de port par produit. 


Dane d'essai 


LOGICIELS 


D'un graphisme aux couleurs 
éclatantes, ce jeu vous envoûtera 
certainement, d'autant plus qu'il y 
a un autre aspect qu'il ne faut 
absolument pas négliger : la 


musique. 
MASQUE 
UBI SOFT 
M Enquête 
LE PASSAGER 
“à DU TEMPS 
Sr ÿ ERE INFORMATIQUE Nous sommes actuellement dans la 


ASS période la plus propice pour 

2 plonger dans Masque ; en effet, 

- que certains regretteront sans qui dit masque dit carnaval et qui 
doute). dit carnaval dit. Venise ! 
En définitive, FAIAL est un logiciel Nous voici donc à destination pour 
réservé aux vrais et aux purs vivre une aventure mystérieuse et 
fanatiques de jeu de rôle ; ceux-ci dangereuse... Vous, Enzo, avez juré 
ont l'assurance d'être captivés. de retrouver le témoin d'un 


Il suffit de lire le titre de ce 
logiciel pour pressentir une 
incitation à un voyage 
extraordinaire dépassant tout 
entendement… 


Vous avez un oncle inventeur 
spécialisé dans les recherches sur 
le temps et les trésors oubliés de 
l'Histoire ; seulement, vous êtes 
inquiet car il y a quelque temps 
qu'il n'a pas donné de nouvelles, 


ZOX 2099 
LORICIELS 


meurtre. Vous êtes largement 
concerné puisque la victime n'est 
autre que Renata, votre chère et 
tendre compagne ! Alors, il vous 
faut déambuler, fouiner, interroger 
dans tous les coins et recoins de 


ce qui ne lui ressemble pas. ArcadelAventure Venise. Votre tâche n'est pas des 
C'est ainsi que toute l'aventure FAIAL plus faciles car Ps les | 
commence : vous êtes devant sa EXCALIBUR personnages ont des masques ; 


maison close et inhabitée et vous 
devez pénétrer dans cette villa 
pour savoir tout ce qui s'y passe. 
Plus facile à dire qu'à faire car il 
faut être à l'affût de tous les 
indices possibles et inimaginables 
d'une part, et savoir les exploiter 
d'autre part ! 

Vous pensez sans doute qu'il suffit 
de faire une investigation poussée 
de toutes les pièces pour découvrir 
ce qu'est devenu votre tonton et 
en avoir terminé avec ce jeu ? Pas 
du tout, car si vous êtes 
suffisamment perspicace, vous 
finissez par découvrir une pièce 
secrète dans laquelle se trouve une 
curieuse machine. À cet instant, la 
véritable aventure ne fait que 
commencer. 

Comme vous pouvez le constater, 
le Passager du Temps risque fort 
de vous faire passer du bon 
temps, sans que vous vous rendiez 
compte du temps passé devant 
votre écran. De plus, vous avez 
l'avantage d'être un aventurier non 
solitaire car vous pouvez en 
permanence obtenir aide et 
réconfort auprès d'un “Sylvestre” 
plein d'esprit. 

Quant à la réalisation, elle révèle 
des graphismes très bien faits et 
éclatants, ainsi qu'une 
programmation du pavé numérique 
donnant le vocabulaire le plus 
fréquemment utilisé. En définitive, 
une aventure qu'il ne faut pas 
manquer. 
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Aventure/Jeu de rôle 


Si vous êtes en manque d'épopée 
glorieuse où vous incarnez un 
chevalier sans peur et sans 
reproche, FAIAL va sûrement vous 
intéresser. 

Pour rentrer dans la peau du 
personnage, il faut que vous 
sachiez que vous êtes le dernier 
survivant du Chevalier du Levant 
et que votre père vous a légué, 
avant de mourir au combat, son 
arme redoutable : l'épée 
SOULSAPER. 

Fort de cette compagnie, vous 
vous rendez à FAIAL avec 
l'intention de vous mettre au 
service de Shalidhar, roi des cinq 
provinces. Seulement, votre entrée 
dans la ville va vous obliger à 
faire des choix et, selon le cas, 
vous vous retrouverez au service 
du bien, à moins que ce ne soit 
celui du mal. Malgré tout, le but 
de votre histoire sera d'avoir des 
démêlés avec le sorcier Ylang et 
ses immondes Varlows, créatures à 
son service. 
Avec ce jeu de rôle, vous avez un 
maximum de textes et quelques 
images pour les phases d'action 
telles qu'un combat. Quant au 
personnage que vous devez créer, 
vous avez une marge de trois 
points sur la valeur de ses qualités 
car elles sont notées d'une façon 
aléatoire par l'ordinateur (aspect 


oo 


Après un saut dans l'espace-temps, 
vous vous retrouvez en l'an 2099 
face à un problème que vous êtes 
le seul à pouvoir résoudre. En 
effet, l'infâme ZOX a encore 
frappé en enlevant quatre de vos 
compagnons sur votre planète ; il 
ne vous reste plus qu'à atteindre 
la planète Hullm, royaume de ZOX, 
à bord de votre vaisseau spatial. 
Le problème peut vous sembler 
simple et élémentaire ; seulement, 
ce jeu diabolique est composé de 
deux phases : une séance d'arcade 
où vous êtes dans votre vaisseau 
et où vous devez faire face à des 
ennemis. |! faut obligatoirement 
que vous en anéantissiez un 
certain nombre avant d'être 
autorisé à pénétrer dans Hullm et 
à effectuer la seconde phase du 
jeu. 

À ce moment là, vous devez 
évoluer dans un dédale de pièces à 
la recherche de vos compagnons, 
mais attention car il y a des 
gardiens fort peu hospitaliers, des 
portes qu'il faut réussir à ouvrir ou 
des pièces qui semblent sans 
issue... 


mais qu'importe, car vous avez la 
possibilité de dialoguer ou soudoyer 
et, si cela ne suffit pas, vous 
pouvez frapper ! À ce moment là, 
votre “témoin” se retrouvera à 
visage découvert et sera peut-être 
plus coopératif... 

Avec Masque, vous êtes en 
présence d'un logiciel très 
attrayant, tant au niveau de 
l'intérêt du jeu que de la 


AUCUNE 
ARME 


+éecom: or 


réalisation graphique ou de la 
musique qui a de grandes 
similitudes avec celle de Zombi. 

A l'écran, vous avez une partie 
graphique situant l'endroit où vous 
vous trouvez, une série 
d'indicateurs montrant votre état 
de santé et tout un choix d'icônes 
vous permettant de sélectionner 
l'action que vous désirez 
effectuer... 

Somme toute, la conclusion tient 
en deux mots : vraiment superbe ! 


ACROJET 
US GOLD 


Simulateur 


Tonneaux, loopings, vrilles, piqués, 
toutes ces manœuvres vous seront 
accessibles (les “G'’ en moins), 
grâce au logiciel Acrojet. 

Le titre désigne un petit avion à 
réaction spécialisé dans les 
acrobaties aériennes. Ne vous fiez 
pas à son allure de jouet, c'est un 
appareil puissant et à ne pas 
mettre entre toutes les mains 
(surtout les vôtres) ! Mais notre 
indulgence n'ayant pas de bornes, 
vous pouvez vous entraîner, à 
l'aide de ce programme, au 
maniement du petit bolide. Ici, pas 
de violence ni de combats, on ne 
vous demande pas de descendre 
des adversaires, le goût du sport 
est votre seule motivation. Du 
sport il va y en avoir : pas moins 
de 9 épreuves vous attendent, du 
“Huit Cubain” à la coupure des 
rubans. Bon courage ! 

Après le choix des options 
traditionnelles : difficulté, type de 
course, votre tableau de bord, ainsi 
que la vue extérieure s'affichent. Il 
est dommage que votre appareil 
soit visible : cela diminue le 
réalisme. Enfin, le décollage s'est 
effectué. Pleins gaz, train 
d'atterrissage rentré, l'Acrojet 
prend de l'altitude. Le premier 
poteau est en vue, il est temps 
d'amorcer le virage. Bon sang, le 
moteur se met à chauffer 
dangereusement ! Je coupe les gaz 
quelques instants et je repars de 
plus belle ! Encore trois virages et 
j'atterris. Ouf ! Cette fois-ci, pas 
de casse ! En revanche, mon 
temps n'est pas terrible. Si le son 
du réacteur est plutôt réaliste, le 
graphisme 3D est un peu nu. Le 
tableau de bord rattrape ce défaut 
en ayant la bonne idée d'être 
complet. 

A tout à l'heure, je dois me 
préparer pour le prochain décathlon 
aérien. 


TYPHON 
IMPERIAL 
SOFTWARE SYSTEM 
Utilitaire 


Avec Typhon, c'est un vent de 
folie qui va souffler sur la gamme 
des CPC ! Ce compilateur est en 
effet, à ma connaissance, un des 
plus puissants écrit pour les 
Amstrads. 

Rappelons qu'un compilateur est un 
programme qui transforme une liste 
source BASIC en langage machine. 
Quel avantage ? La rapidité bien 
sûr ! Un programme compilé 
s'exécute 20 à 100 fois plus 
rapidement que le listing original, 
Malheureusement, la plupart du 
temps, les compilateurs ne 
“’saisissent”” pas toutes les 
instructions BASIC et sont, de ce 
fait, d'application assez limitée. 
Typhon, lui, reconnaît quasiment 
tous les ordres du langage de 
Locomotive Software. Bien sûr, ne 
comptez pas retrouver les 
instructions COS,SIN ainsi que tout 
ce qui concerne les calculs sur les 
nombres réels. Ce n'est pas par 
manque de savoir-faire que ces 
possibilités n'ont pas été incluses, 
mais le prix à payer est un 
ralentissement considérable dû à 
un accès aux routines systèmes. 
Or, le propre d'un compilateur est 
de permettre un gain de temps. 
Autre limitation portant sur les 
nombres, ceux-ci devront être 
compris entre -32768 et 32767. 
En revanche, ils peuvent être sous 
forme hexadécimale ou binaire. 
Pour avoir une idée de la 
compatibilité BASIC Typhon, il 
suffit d'ouvrir le manuel de 
l'Amstrad et celui du compilateur 
pour constater, qu'à de rares 
exceptions près, toutes les 
instructions sont présentes. Il y a 
même des ordres supplémentaires 
tels DEG, suivi de 4 paramètres, 
qui permet de tracer des cercles 
ou AUTO n provoquant une pause 
de n x 0,00001 seconde. Vous 
avez sans doute tèmarqué que ces 


deux exemples sont en fait des 
instructions ‘’détournées’” par 
Typhon. Donc, vérifiez 
attentivement vos listings pour 
éviter certains quiproquos durant la 
compilation. Cette dernière 
s'effectue d'ailleurs très 
simplement : RUN “TYPHON"' suivi 
du chargement du programme 
BASIC. Un appui sur la petite 
touche ENTER provoque la 
compilation et l'affichage des 
caractéristiques du programme 
objet. Une série d'options vous 
permet de lancer le programme 
compilé, de l'enregistrer (sur disque 
ou cassette) ou de revenir au 
BASIC. En règle générale, le 
programme compilé occupe plus de 
place que le programme source, 
mais les paramètres d'occupation 
mémoire du code-objet et source 
sont réglables et on peut parvenir 
à un bon compromis entre taille 
des variables et taille du BASIC. 
Tout est conçu pour vous faciliter 
la tâche : l'appel de routines en 
langage machine peut se faire 
grâce au CALL classique, mais 
aussi par l'intermédiaire de la 
routine MERGE suivie des codes 
machines sous forme décimale, 
hexa ou binaire. Les interruptions, 
synchrones ou asynchrones, sont 
également programmables avec 
cependant quelques limitations pour 
le 464 puisque certaines routines 
de la ROM ne fonctionnent pas 
bien. 

Les RSX ne sont pas oubliées, de 
nouvelles instructions, DEF DATA 
et DEF READ, facilitent leur 
création. De plus, vos programmes 
comprenant des RSX peuvent être 
compilés à condition que ces 
dernières soient initialisées avant 
la compilation. Vos programmes, 
une fois traités par le compilateur 
et enregistrés sur un support 
magnétique, sont chargés et 
exécutés par un RUN ‘’Nom du 
programme”. Il n'est pas 
nécessaire de repasser par Typhon. 
Parmi les limitations, on peut 
citer : la taille du programme 
source coincé par les variables 
BASIC et le compilateur lui-même ; 
le signe ‘-” est valide seulement 


devant un nombre ; pour entrer 


A = -A, il faudra taper À = OA ; 
Typhon n'accepte qu'un seul ELSE 
après un [F. 

Mais cela ne diminue en rien les 
capacités du compilateur. Les 
programmes de démonstration, 
présents sur la disquette et dans 
le manuel, sauront vite vous 
convaincre de la puissance de ce 
logiciel. 


LITTLE 
COMPUTER PEOPLE 
ACTIVISION 


Avez-vous jamais pensé qu'il puisse 
y avoir un petit homme habitant 
dans votre ordinateur ? Grâce à ce 
logiciel, vous pouvez faire sa 
connaissance et apprendre à 
connaître sa façon de vivre dans 
sa petite maison qui n'est autre 
que votre Amstrad. 

Seulement, n'allez pas penser que 
vous allez avoir une attitude 
complètement passive devant votre 
écran ! En effet, c'est à vous que 
revient la täche délicate d'assurer 
les meilleurs soins à votre hôte. 
Vous pouvez voir à son air s'il est 
heureux, seulement satisfait ou 
carrément triste. Il vous faut 
assurer aussi bien son bien-être 
physique que moral. Voici les 
moyens qui sont à votre 
disposition : vous pouvez lui 
donner à manger, à boire, le faire 
dormir, mais vous pouvez 
également lui donner un coup de 
téléphone ou lui faire une caresse. 
Mais les activités du petit homme 
ne s'arrêtent pas là : il est 
également mélomane, adepte 
fervent de micro-informatique ou 
de jeux de société. 

Voici donc un logiciel d'un genre 
tout à fait nouveau vous 
permettant d'échanger et de 
communiquer avec votre LCP et 
ce, sans limite, sauf celle de votre 
imagination. L'adaptation de ce 
logiciel sur Amstrad est très 
réussie et il est certain que 
chacun tombera sous le charme de 
cet habitant d'ordinateur et aura 
envie de passer quelques heures 
avec lui. 


CAPUCINE 
ERE INFORMATIQUE 
Educatif 


Voici un logiciel qui s'adresse aux 
jeunes enfants se trouvant en 
petite ou moyenne section de 
maternelle, c'est-à-dire des enfants 
ayant 4 ou 5 ans. 

Après l’Animalier et les Quatre 
Saisons, Andréa Tanguy récidive 
une nouvelle fois en mettant à 
l'épreuve les capacités de l'enfant 
à reconstituer une image. Le 
logiciel contient deux phases de 
jeu indépendantes et intitulées 
respectivement Carnaval et 
Capucine. 

Dans Carnaval, chaque image est 
constituée de trois parties : la 
tête, le corps et les jambes. 
L'enfant choisit le sujet sur lequel 
il désire jouer : les métiers, le 
carnaval ou les sports. Dans 
chaque catégorie, l'enfant pourra 
reconstituer six personnages 
différents (par exemple, pour les 
métiers, nous avons le jardinier, le 
plombier, la ballerine, le cuisinier, 
le ramoneur et le marin). Comme à 
son habitude, l’auteur offre des 
dessins toujours aussi suggestifs 
avec des couleurs attrayantes pour 
les petits. 

Dans Capucine, le principe de 
reconstitution d'image par 
morceaux juxtaposés demeure, 
mais il y a un plus grand degré de 
difficulté : dans ce cas, il y a six 
morceaux par image. Les sujets, 
quant à eux, sont différents 
puisqu'il s’agit d'animaux qui 
nagent, qui volent ou qui 
marchent, chaque catégorie 
contenant toujours six images. 
D'une réalisation très propre et 
très nette, cet éducatif a 
l'avantage d'obliger l'enfant à faire 
un effort d'observation et de 
réflexion logique pour rétablir 
l'image correcte ; et, en plus, 
l'enfant pourra créer également des 
personnages fantastiques qui, selon 
son goût, seront beaux ou laids.. 


PRINT MASTER 
SIREN 
SOFTWARE/DUCHET 
COMPUTERS 
Utilitaire 


Donnez du caractère à votre 
imprimante ! Ou plutôt des 
caractères. En effet, Print Master 
offre à tout possesseur d'une 
compatible Epson (les tests ont été 
effectués sur ce type de machine) 
une série de nouvelles “fontes”. 
Celles-ci sont présentes sur le 
disque sous forme de fichiers 
binaires aux noms imagés tels 
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que : Gothic, Flash, Helvétic, City, 
Chicago. L'utilisation de ces 
nouvelles possibilités calligraphiques 
passe, bien sûr, par des RSX. Les 
principales sont : ISIZE,n qui 
modifie la taille des lettres (de O à 
2) ; IFONT, suivi d'une chaîne 
alphanumérique (Gothic ou Flash 
par exemple}, détermine le jeu de 
caractères ; IULINE provoque le 
soulignement ; lINVERT place en 
mode inversion vidéo ; enfin 
INORMAL, comme son nom 
l'indique, inverse les deux dernières 
commandes. 

Un traitement de textes est quasi 
indispensable à qui veut avoir une 
certaine souplesse d'emploi. Je 
m'explique : les RSX citées 
précédemment sont introduites au 
sein même du document. Par 
exemple, tapez IFONT Gothic puis 
la suite de votre texte. Après avoir 
sauvé le fichier, on tape run 
“"ASCPRINT". Ce programme en 
BASIC récupère les fichiers ASCII 
et en analyse le contenu. À 
chaque fois qu'il rencontre une 
instruction RSX, il l'exécute et 
continue l'impression. Dans notre 
exemple, IFONT Gothic provoque le 
chargement de la police de 
caractères gothiques, l'impression 
des chaînes qui suivent se fera 
dans ce mode jusqu'à la rencontre 
avec une autre instruction. Dans 
un programme BASIC, il faut, pour 
obtenir les mèmes résultats, lancer 
le programme PRINT" puis se 
servir des 4 RSX : ILPRINT pour 
imprimer une chaîne, ISIZE, 
lINVERT, IULINE ayant les mêmes 
fonctions que précédemment. Le 
chargement d'une police se fera 
par LOAD A$,&9400 (A$ étant la 
dénomination de la police). 

Sur la disquette, on trouve 
également ‘’UTIL" qui permet 
différents “DUMPS"’ (vidages 
d'écran sur l'imprimante). Mode 
graphique, graphique en 16 
couleurs et textes sont disponibles. 
Autre programme digne d'intérêt : 
"DESIGNER". Celui-ci remplit les 
fonctions de créateur de 
caractères. Vous pouvez ainsi 
obtenir tous les hiéroglyphes 


voulus et mème redéfinir les 
polices de caractères existantes 
(pour ajouter les accents). Print 
Master est un logiciel assez simple 
d'emploi et qui donne un “look” 
professionnel à vos textes, 
d'autant plus qu'il est possible 
d'insérer des “’hardcopy” d'écrans 
dans vos documents. 

En revanche, il faut savoir s’armer 
de patience : l'impression est 
assez lente. Autre regret : les 
changements de caractères 
affectent une ligne entière. {| n'est 
pas possible de modifier un mot 
particulier à l'intérieur d'une 
phrase. 

A vos imprimantes et n'oubliez pas 
de changer votre ruban ! 


SYSTEME EXPERT 
LORICIELS 
Utilitaires 


Le CPC entre dans l'ère de 
l'intelligence artificielle. La preuve : 
Loriciels a réalisé un logiciel 
destiné à vous faire découvrir cet 
univers pétri de logique. 

Avant de décrire le fonctionnement 
du programme lui-mème, il est 
nécessaire de définir certains 
termes. Tout d'abord, il faut savoir 
qu'un système expert est un 
programme simulant les étapes du 
raisonnement humain. Lorsqu'il 
s'agit d'un programme polyvalent 
tel Système .Expert, on parle de 
“noyau”. Pour que le système 
devienne “expert”, il faut lui 
adjoindre des données concernant 
un domaine bien précis. Ces 
données sont de deux natures 
différentes : les règles et les faits. 
Les règles constituent la base 
même du processus de réflexion, 
elles sont entrées sous forme 
conditionnelle (Si. alors). Les faits 
sont utilisés pour définir les objets 
et leurs relations. Par exemple, la 
formule : si X1 est le père de X2, 
alors X2 est le fils de X1, est une 
règle. Alors que la formule : Pierre 


est le fils de Simon, est un fait. 
Le programme vous propose 
plusieurs banques de données. 
L'une d’entre elles est une aide au 
diagnostic médical. Il suffit de la 
charger avec l'option “mémoire de 
masse”. Vous aurez alors la 
possibilité de consulter la base de 
règles et la base de faits. Dans le 
cas précis du diagnostic médical, 
les règles sont de la forme : si 
X1/fièvre — est vrai et si 
X1/douleur déglutition — est vrai 
et si X1/ganglions cervicaux — 
est vrai et si X1/gorge enflammée 
— est vrai, alors 
X1/contracte/angine — est vrai. 
On observe donc une succession 
de conditions se terminant par la 
proposition ‘est vrai” (la 
réciproque, ‘’est faux” est 
possible). Cette banque de données 
comporte ainsi, à l'origine, 11 
règles et 11 faits. J'insiste sur le 
terme ‘à l'origine” : il est en effet 
possible d'ajouter d'autres règles 
et faits. Les connaissances du 
programme sont susceptibles 
d'augmenter et ce d'autant plus 
qu'il est capable de déduire des 
faits nouveaux à partir des règles. 
Si j'entre le fait : 
Paul/côtoie/Robert — est vrai et 
si je lance la routine de déduction, 
le système va déduire d'après la 
règle 11 que si Paul/côtoie/Robert, 
alors Robert/côtoie/Paul : ce qui 
semble évident pour nous ne l'est 
pas forcément pour l'ordinateur. Ce 
nouveau fait sera lui aussi 
enregistré et intégré à la base de 
faits. 


L'intérêt de ce programme est de 
permettre l'interrogation du 
système par l'intermédiaire de 
masques. L'entrée du masque 

* maladie infantile correspond à la 
question : quelles sont les 
maladies infantiles ? L'option 
questionnaire permet, pour vous 
guider, de visualiser une série de 
questions considérées valides par 
l'ordinateur. 


La présence des variables X1 ou 
X2 dans les propositions est une 
caractéristique puissante de 
Système Expert, elle autorise un 
paramétrage des faits. On peut 
donc remplacer ces variables par 
n'importe quelle chaîne. Toutes ces 
notions peuvent vous paraître 
assez abstraites et confuses, mais 
le manuel (60 pages) est 
suffisamment progressif pour que 
vous saisissiez les subtilités de 
l'intelligence artificielle. 


La présentation du programme 
(gestion de l'écran par des 
fenêtres) contribue, elle aussi, à 
rendre le Système Expert plus 
facile d'accès. D'ailleurs, la logique 
n'interdit pas le ludique puisque, 
parmi les banques de données, on 
trouve les résolutions de deux 
énigmes posées par Lewis Caroll. 


DIS-CAS 
Patrice PETIT 
Utilitaire 


Ce programme permet de stocker 
sur cassette toute une face de 
disquette en une opération, dans le 
but d'obtenir une copie de 
sauvegarde pour les disques les 
plus souvent utilisés. 
Personnellement, je l'ai aussi 
employé pour récupérer des 
disquettes contenant des 
programmes que je n'utilise jamais, 
mais que je ne voulais pas perdre 
définitivement. 

Attention, l'enregistrement sur 
cassette n'est pas utilisable 
directement, mais seulement pour 
écrire sur la disquette voulue grâce 
à CAS-DIS. 

Les instructions sont incluses dans 
le programme. Le fonctionnement 
est le suivant : 

— Affichage du catalogue de la 
disquette à sauvegarder. 

— Détermination du format grâce 
à l'adresse &A89F (système ou 
data seulement). 

— Recopie de l'écran texte du 
catalogue en &2000 (routine 
&A029). 


| 


EXPLOITEZ 


— Sauvegarde de cet écran texte 
sur cassette (fichier binaire 
normal). 

— Lecture des 9 secteurs de 
chaque piste et stockage en 
&2000 (routine &A000). 

— Ecriture sur cassette de la zone 
correspondante en fichier 
“’headerless”’ de 4,5 ko (routine 
&A01E) 

— Piste suivante, etc. 

— Une fois les 40 pistes 
transférées, on peut comparer 
l'enregistrement obtenu avec le 
contenu de la disquette (routines 
&A000 et &AO1E modifiées pour 
la lecture). 

NOTE : La vitesse d'écriture 
sélectionnée (environ 2200 bauds) 
permet le stockage de 2 diquettes 
complètes (4 faces) sur une 
cassette C60 


CAS-DIS 


Ce programme est le complément 
du précédent, il permet la 
transcription sur disquette de 
l'enregistrement obtenu sur 
cassette. 

Attention : il ne peut être utilisé 
que pour les cassettes écrites par 
DIS-CAS. 


Le programme charge d'abord le 
catalogue qui permet de s'assurer 
que l'on va bien transférer les 
programmes voulus, puis chacun 
des 40 blocs correspondant à une 
piste est copié sur la disquette. 
Les 3 programmes proposés 
fonctionnent correctement sur CPC 
464 avec DD1, mais ne devraient 
pas poser de problème particulier 
avec un 664 ou 6128 avec 
magnétophone. 


ETHNOS 
CHIP 
Stratégie 


Vous appartenez à la sixième 
génération de la dynastie des 
chanceliers Tsakalans. 
Malheureusement, votre civilisation 
a été obligée de se réfugier après 
avoir été chassée par les 
Amstrides. Il se trouve que, par un 
soir d'orage, vous êtes choisi par 
les Dieux et une révélation vous 
est faite : vous avez le devoir de 
reconstruire la force de l'ancienne 
ethnie ; il ne vous est pas 
demandé d'anéantir les Amstrides, 
mais seulement d'user de vos 
pouvoirs et de l'aide des Dieux 
afin que votre civilisation et celle 


MI 


SOUS QUELLE 


SUIS-JE NE 


des Amstrides ne fassent plus 
qu'une seule et unique fédération. 
Après avoir choisi votre milieu et 
le type de votre gouvernement 
(Monarchie ou Conseil des Sages), 
vous devez vous efforcer d'obtenir 
une société stable ; pour cela, 
vous avez accès à plusieurs 
actions possibles que ce soit en 
politique intérieure (Economie, 
Autorité, Culture, Armée...) ou en 
politique extérieure (guerre 
économique, idéologique, d'annexion 
ou subversion, traités...). À vous 
d'être le plus judicieux possible 
dans vos choix, mais il est un 
facteur qu'il ne faut absolument 
pas négliger : l'aide des Dieux qui 
feront parfois des miracles ! 

Dans ce logiciel, le premier choc 
se situe au niveau du graphisme 
qui est tout simplement superbe ! 
Quant aux couleurs (tout un 
dégradé de jaunes et orangés), 
elles permettent de s'imprégner 
d'une atmosphère toute 
mythologique. Un cadeau de choix 
pour les adeptes de stratégie. 


ETOILE 
n 


290 F. 


Lædisquette double-face 


ROIR 


VOTRE 
AMSTRAD 


le livre + la cassette 


103 F co 


Jeux - Gestion 
Education - Domestique 
Impression de documents 


Un best-seller 


ASTRAL 


Avec une date, une heure et un lieu de naissance, 

votre CPC établira un portrait psychologique 

approfondi d'environ 15 pages sur imprimante ! 

Un logiciel qui vous étonnera par sa profondeur ! 
(version familiale d'un logiciel utilisé par les professionnels) 


Astropsychanalisez votre famille,vos amis, 


Bon de Commande comme les plus grands hommes célèbres. 


à renvoyer à STAMP DIFFUSION, 
27, bd de la Fraternité - 44100 NANTES 
Exploitez votre Amstrad. 103 F - Port gratuit. 


Commandez votre disquette pour CPC 6128 ou CPC 664 
(PORT GRATUIT) à : 
Bernard VILLEMIN 
317, Av. de Verdun - 83110 SANARY - Tél. 94 74 32 00 


Nom Prénom 


Adresse 
Ci-joint chéque de 103F. 
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LE DIGITALISEUR FRANÇAIS 


C'est sur le stand Jagot & Léon, lors de 
l'AMSTRAD Expo de novembre 1986, 
que nous avions vu, pour la première 
fois, ce produit tant attendu par les 
amateurs de vidéo et de micro- 
informatique. Certes, il existait déjà un 
produit venu d'Outre-Manche, mais 
pourquoi acheter à l'étranger ce qui est 
disponible chez nous à un prix fort 
compétitif. 

Qu'est-ce que "la digitalisation” d'ima- 
ge ? C'est tout simplement un procédé 
qui consiste à analyser l'image produite 
par une source vidéo et à la traiter de 
manière à pouvoir la stocker dans la mé- 
moire d'un ordinateur. Certes, on perd 
généralement en qualité, car il serait illu- 
soire de penser que l'on puisse ranger 
une image prélevée à la sortie d'une ca- 
méra, d'un magnétoscope ou d'une 
source vidéo quelconque, dans la mé- 
moire étriquée de nos ordinateurs fami- 
liaux. 

Comment procède-t-on ? En schémati- 
sant, on découpe le signal d'origine en 
fines tranches (miam-miam) que l'on 
nomme "échantillons". Plus l'échantil- 
lonnage est rapide, meilleure est la qua- 
lité du signal restitué. Si cette opéra- 
tion s'effectue sur des signaux à basse 
fréquence, tels ceux produits par la 
parole ou la musique, il n'y a pas trop 
de problèmes, et encore. En effet, 
pour que ce traitement soit acceptable, 
il faut que la fréquence de l'échantillon- 
nage soit environ 10 fois supérieure à 
celle du signal à traiter. Avec un signal 
vidéo occupant environ 6 MHz de ban- 
de passante, l'opération devient plus 
délicate. Le circuit utilisé pratique une 
conversion “analogique-digitale". L'am- 
plitude de l'échantillon prélevé est co- 
dée sous forme numérique. C'est sous 


14 


Denis BONOMO 


Agrémenter ses disquettes ou ses logiciels au moyen d'images digitalisées 
est désormais possible et ce, grâce à une extension et un logiciel 
remarquablement bien conçus et, qui plus est, "Made in France". 


cette forme qu'elle sera rangée en mé- 
moire. Comme il serait trop compliqué 
(et donc trop cher) de digitaliser, en te- 
nant compte de la couleur, l'opération 
se fait en ne codant que la luminosité 
du signal. La couleur est ajoutée ensui- 
te de manière "artificielle" par le logiciel. 
Côté matériel, le digitaliseur se présen- 
te comme une petite boîte (format syn- 
thé vocal TMPI) qui se connecte sur le 
bus extension de l'AMSTRAD. L'interfa- 
ce disque du 464 peut néanmoins être 
mise en place derrière le digitaliseur. 
Un câble terminé par un connecteur de 
type PERITEL est fourni avec l'ARA. II 
faudra partois prévoir un câble diffé- 
rent, en fonction de la source vidéo utili- 
sée (les caméras ont rarement une pri- 
se PERITEL...). 

Sur la disquette contenant le logiciel 
ont été enregistréas quelques images 


qui donnent une idée des possibilités 
du digitaliseur. 

Nous avons fait nos essais sur un télé- 
viseur, en prélevant des images de ty- 
pes différents : tournages en studio, 
dessins animés, images soufflées cap- 
tées sur antenne intérieure afin de ju- 
ger des qualités de l'ARA. 

La digitalisation s'effectue au rythme 
de 3 images par seconde, ce qui est 
très honorable. On peut également opé- 
rer en mode ‘image par image”. Les 
deux dernières images mémorisées 
peuvent être rappelées. Selon le type 
d'image traité, il faudra choisir entre les 
deux modes d'écrans proposés : Moda 
0 ou Mode 1. En règle générale, c'est 
ce dernier qui donne les meilleurs résul- 
tats sur des visages ou des paysages. 
Le mode 0 pourra être retenu pour des 
dessins animés, par exemple, là où il 


faut davantage de couleurs. En fonc- 
tion de la luminosité de l'image, un ré- 
glage par soft permet d'affiner la qualité 
du traitement. Des réglages de contras- 
te et de tramage ont également été 
prévus. Tous ces réglages agissent, 
bien entendu, en temps réel. Autre as- 
pect du logiciel, et non des moindres, la 
possibilité de modifier des images re- 
çues. Coloriage, incrustation, tramage 
permettent les effets les plus spec- 
taculaires ou artistiques. Une fonction 
"Zoom" autorise un travail très précis. 

La recopie d'écran sur imprimante 
fonctionne sur DMP-2000 ou "compati- 
bles EPSON". Bien conçue, elle permet 
de sélectionner le nombre de passages 
par ligne, le style de niveaux de gris 
(régulier ou tramé) et le cadrage hori- 
zontal pour conserver à l'image de bon- 
nes proportions. 


Les images enregistrées seront facile- 
ment récupérées pour une utilisation 
ultérieure. Elles occupent 16 K sur le 
disque car elle ne sont pas "compres- 


sées”. Comme le précise la notice, on. 


n'y gagne rien à compresser ce genre 
d'images. Avec les images, sont stoc- 
kés 32 octets restituant divers paramè- 
tres de couleur d'encre, papier, bor- 
dure, tramage... 


A l'utilisation, on doit se rendre à l'évi- 
dence : le logiciel de traitement d'ima- 
ges ARA a été fort bien pensé et il est 
difficile de lui trouver des faiblesses. 
La notice est livrée "sur la disquette" et 
pourra être sortie sur imprimante, au 
gré de l'utilisateur. 

Que faire avec ces images digitali- 
sées ? Là, devront intervenir l'imagina- 
tion ou les besoins de l'utilisateur 


BANC D'ESSAI 


OC 


illustrations techniques ou pédagogi- 
ques, pages-titres pour les disquettes, 
jeu d'aventure se déroulant dans des 
paysages existant réellement ou met- 
tant en scène des personnages con- 
nus (j'en connais qui sont capables de 
nous refaire un "Dallas" version mi- 
cro..). Peu importe, l'outil existe et 
nous sommes enchantés par les possi- 
bilités qu'il offre pour un prix très abor- 
dable (990 F TTC). 

Un dernier mot : un logiciel de transfor- 
mation des images digitalisées en ima- 
ges Vidéotex est en cours de mise au 
point. Voilà une excellente nouvelle 
pour les passionnés de télématique 
ayant déjà mis en œuvre un serveur... 
Digitaliseur ARA : renseignements 
auprès de la société JAGOT & LEON. 
Recommandez-vous de CPC au numé- 
ro suivant : 77.33.13.82. 


— 
a 


A LA VITRINE DU 


TURBO PASCAL 
SOUS CP/M 80 
P.-M. BEAUFILS, 
W. LUTHER 
(Eyrolles) 


Le passage de BASIC vers PASCAL 
place le programmeur devant l'évidente 
disproportion, à l'avantage du premier, 
dan, le nombre de publications de pro- 
grammes. Le problème premier devient 
alors la recherche de la matière à se met- 
tre sous la dent pour se faire la main. Ce 
livre vient donc participer à combler ce 
vide avec une réserve toutefois ; il sem- 
ble que les matheux se sentiront plus à 
l'aise que d'autres à sa lecture. 

Après une douzaine de programmes 
généraux (dont un mini-traitement de 
texte), qui permettent le passage en 
revue des commandes de TURBO PAS- 
CAL, les auteurs s’attachent à expliciter 
les commandes graphiques sur CPC, 
ainsi, d’ailleurs, que sur APPLE Il, ce qui 
permettra, entre autres choses, de faire 
la connaissance des modules graphiques 
et des manipulations d'imprimantes. Les 
choses deviennent plus complexes, et 
plus intéressantes, avec le traitement des 
objets fractals, l'animation en trois 
dimensions et surtout un programme très 
spectaculaire de miroir sphérique. Les 
liaisons TURBO PASCAL / CP/M vien- 
nent ensuite. 

De nombreuses annexes, fort claires, 
offrent à l'utilisateur un mode d'emploi 
condensé du programme. 
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Pierre TACONNET 


LE LIVRE DU MS/PC-DOS 
François PIETTE 
BCM (diffusion P.S.I.) 


Cette nouvelle édition de l'ouvrage n'est 
plus dédiée aux seuls PC XT ou AT, mais 
aussi à l'AMSTRAD PC utilisé sous MS- 
DOS. Le lecteur averti y trouvera une 
mine de renseignements très techniques 
lui permettant de mieux utiliser le 
système d'exploitation. |l est indispensa- 
ble de posséder de bonnes connaissan- 
ces en assembleur pour profiter pleine- 
ment des ressources offertes par ce livre. 
Après une présentation rapide des com- 
mandes MS-DOS, on trouvera des infor- 
mations très intéressantes sur la struc- 
ture des disquettes, les interruptions, la 
gestion de la mémoire, la configuration 
de l'imprimante. 

Plusieurs listings en assembleur, en C--- 
ou simplement en BASIC sont présentés 
dans l'ouvrage et tombent, de ce fait, 
dans le domaine public. C'est certaine- 
ment l’un des meilleurs ouvrages tech- 
niques consacrés à MS-DOS qu'il nous 
ait été donné de consulter. À ne pas 
manquer si vous voulez sortir des sim- 
ples utilisations routinières de DIR, FOR- 
MAT ou COPY ! 


BRAIRE 


PRATIQUE DES IMPRIMANTES 
Michel ARCHAMBAULT 
(SORACOM informatique) 


La manipulation des micro-ordinateurs 
semble un problème mineur en regard du 
maniement des imprimantes qui pousse 
au désespoir nombre d'utilisateurs. Que 
ceux qui allaient se suicider posent leur 
révolver, leurs tracas prennent fin avec 
cet ouvrage. 

Les lecteurs que vous êtes connaissent, 
à travers ses nombreux articles, le sens 
pratique de Michel ARCHAMBAULT qui 
vous permet de comprendre, donc de 
maîtriser, votre ordinateur ; cet ouvrage 
vous fait profiter de la même qualité de 
conseils pour les imprimantes à aiguilles 
(matricielles). 

Trop souvent, les manuels, mal traduits, 
frisent l’ésotérisme le plus crasse, quand 
ils ne sont pas inexistants ! Ce livre peut 
être considéré comme un manuel univer- 
sel ; il n’est pas dédié à une machine en 
particulier et le lecteur y trouvera la solu- 
tion à la plupart de ses ennuis tant logi- 
ciels que matériels ou même de traduc- 
tion puisqu'un lexique exhaustif trouve 
sa place en fin d'ouvrage. 

Finis les problèmes de câbles, de swit- 
ches, de minuscules accentuées, de 
tabulation, de vidage écran ; finies les 
nuits blanches. De nombreux program- 
mes émaillent ce livre qui s'imposera 
rapidement comme le complément indis- 
pensable à toute imprimante à aiguille. 


Disrrisunon Eéc RONIQUE lirormanque Aourraine 
QUARTZ SYSTEM 


62, cours de l'Yser - 33800 BORDEAUX 


56.91.15.81 


Télex : 572421 


SERVICES INFORMATIQUES 


En liaison avec DAMOCLES de LOGICYS 
e Traites __ - 490,00F HT. 
Edition automatique de traites et de relevés de factures + traites. 


e Relances _ . 490,00FHT. 
Edition automatique de lettres de relances. 


ETUDE ET DEVIS POUR TOUTES MODIFICATIONS 
A APPORTER AU LOGICIEL DAMOCLES. 


En liaison avec ACT1 de LOGICYS 
e Mailing à partir d'un texte locoscript et insertiondes rubriques des 


fiches ACT1 490,00FHT 
En liaison avec LOCOSCRIPT 
e Edition d'un texte 
en plusieurs exemplaires 290,00FH.T. 
Logiciels pour magasins : CABACHAUS Chaussures 
CABAVET Vêtements 
etc... 


Etude et devis pour tout logiciel 


Solutions nombreuses 
Vous avez votre propre fichier client 
Nous vous proposons un logiciel personnalisé avec lequel vous pourrez faire des 
sélections et éditions vous-même. 
- Vous pouvez également utiliser nos compétences pour traiter vos fichiers (de la 
saisie à l'envoi...) 


Dans un cas de prospection de clientele, nous avons de nombreux fichiers a vous 
proposer 
Toutes professions, tous critères, échelle régionale ou nationale 


AGENDOR 


UNIQUE EN SON GENRE !!! 

Se superpose à n'importe quel logiciel existant à 
l'heure actuelle pour PEW 8512 ou PCW 8256 avec 
extension mémoire 

Agenda, gestion de fiches, calculatrice, bloc-notes, 
rendez vous 

Accessible immédiatement sans quitter l'application 
en cours (facturation, compta, tableur, etc...) 


500 FH.T. 


LA PUISSANCE ET LA SIMPLICITE !!! 

Gestion de COMPTE BANCAIRE professionnelle pour 
PCW 82568512 32 postes de ventilation, analyÿti 
que graphique, 4006 écritures par fichiers, option de 
tri par dates, par références d'écritures, par commen- 
taires, par postes 

Planification de l'annee : credits, prélèvements auto- 
matiques, versements fixes, etc 

ttude prévisionnelle Suivant la date du jour 


505,90 F H.T. 


VENTE EN GROS SUR 


AMSTRAD EXTENSIONS VARIEES 
ATARI LISTING 
COMMODORE DISQUETTES-K7 
ORIC JOYSTICK 


COMPATIBLES PC 
MONITEURS 
IMPRIMANTES-RUBANS 


MEUBLES INFORMATIQUES 
LOGICIELS PROFESSIONNELS 
PERIPHERIQUES DIVERS 


ET EN PLUS 

@ Un catalogues complet de Logiciels professionnels sur 
AMSTRAD et compatibles PC 

@ Des remises tres competitives 

® Un stock permanent a votre disposition 

@Un service livraison 48 heures sut toute Li Franc 

@Un service personnalise de 9 h 30 à 19 h 00 

@ Une equipe jeune et dynamique à votre service pour tacdliter 
la gestion de vos commandes 


REVENDEURS, APPELEZ-NOUS ! 


Je désire recevoir un catalogue : LOGICIELSI) ! | AGENDOR 


[ 
MATERIEL!) [ } PARTICULIER 


Le logiciel RUBIS 


Voici mon adresse :Nom 


Société, club ou assoc 


ADFESSS mme 

Code postal : ................................ Ville 

NL ÉDAONE names 
A renvoyer à D.E.IL.A - 62, cours de l'Yser - 33800 BORDEAUX 


CLUBS | | [| |REGLEMENT CHEQUE 
REVENDEURS | | ! !REGLEMENT CONTRE 
REMBOURSEMENT 


Pierre TACONNET 


EUROPA de Philippe DEMOULE (CPC 17) 
était un joyau, les modifications que voilà 
en feront une merveille ! Il y manquait un 
peu d’aléatoire et l’histogramme était un 
peu touffu. Après ces quelques ajouts, 
seul le relief fera défaut. 

Les modifications concernent le second 
listing sauvegardé sous le nom de 
EUROPA1. 

Si vous désirez rendre aléatoire le ques- 
tionnaire sur les pays, entrez ce qui suit : 


152 RANDOMIZE TIME 
211 DIM HAS(27) 
2442 FOR TIR=1 TO 26: HASITIR) 
=TIR: NEXT TIR 
2443 FOR J=1 TO 26 
2444 B=J+1(27-J)*RND(1) 
2445 IF HAS(B)=0 THEN 2444 
2446 RESTORE 3880: FOR JJ=1 TO 
HAS(B):READ PAY$,XP,YP,DD$: 
NEXT JJ 
2475 HAS(B)=HAS(J) 
2476 NEXT J 


et modifiez : 


4190 IF J=27 THEN FOR TP=1 TO 
1000: NEXT TP: GOTO 1890 


Si vous désirez voir s'afficher séparé- 
ment l'histogramme des populations, des 
densités ou des superficies (la fonction 
globale étant conservée), continuez la 
frappe en ajoutant : 


4421 HH=0: CLEAR INPUT 

4422 LOCATE 10,10: PRINT''Que veux- 
tu comparer ?'': LOCATE 
13,13: PRINT''Les superficies’; 


STRINGS$(24,‘"."";)""1"": LOCATE 
13,14: PRINT''Les populations”; 
STRING$(24,"".");'2"": LOCATE 


13,15:PRINT ‘Les densités 
démographiques'’;STRING$ 


(12,87 
4423 LOCATE 13,16: PRINT''Les trois 
ensemble’’:STRING$(21,"."");""4" 


4424 A$ =INKEYS: IF A$ =""" OR 
INSTR(""1234"",A$)=0 THEN 
4424 ELSE H=VAL(A$) 
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4425 IF H=1 THEN M$ = ‘superficie’ 

4426 IF H=2 THEN M$ = ‘‘’population‘” 

4427 IF H=3 THEN M$ = ‘densité 
démographique’ 

4428 IF H=4 THEN HH=1: M$ = 
‘’superficie - population - densité 
démographique" 


et modifiez : 


4490 LOCATE (80-LEN(M$))/2,1: PRINT 
M$ 

4500 IF H=1 OR H=4 THEN LOCATE 
70,15: PRINT''COL.1: SUP." 

4510 IFH=2 OR H=4 THEN LOCATE 
70,16: PRINT''COL.2: POP." 

4520 IF H=3 OR H=4 THEN LOCATE 
70,17: PRINT''COL.3: DEN." 

4620 IF HH=1 THEN FOR H=1 TO 3 

4740 IF HH=1 THEN NEXT H 


Un petit supplément maintenant. À vous 
de deviner son utilité. Ajoutez : 
1945 IF SC=25 THEN LOCATE 20,4: 

PRINT ‘Voici le pays que vous 

avez oublié:"’: LOCATE 
20,5:PRINT 

STRING$(34,''-""): GOTO 1970 
Merci qui ? Merci Henri CHAUVET de La 
Chataigneraie ! Message personnel à ce 
génial modificateur d'un programme non 
moins génial : vous trouverez les répon- 
ses au sujet de l’usage de MONITEUR DE 
DISQUETTES et de CRAZY dans la série 
d'articles de Denis BOURQUIN sur l'ini- 
tiation à l’assembleur et dans le feuille- 
ton de Jean-Pierre MANDON sur les pro- 
blèmes de cœur du 6128 {en fait, le con- 
seil est valable pour tous ceux, et ils sont 
nombreux, qui ne possèdent pas les clefs 
de ces utilitaires). Ceci est plus qu'un 
truc, c’est un (bon) conseil ! 


Les extra-terrestres sont parmi nous. Si, 
si ! On les reconnaît à quoi ? A leur petit 
doigt levé ? Non point ! A leur clavier 
AZERTY ! Figurez-vous qu'un certain 
nombre de programmes ne fonctionnent 
pas (notamment la série des MILLIONS) 
et que personne ne le leur avait dit. Pre- 
mier conseil : avant d'acheter une cas- 


sette ou une disquette, annoncez la cou- 
leur ou testez-la. Second conseil 
plongez-vous dans votre manuel et 
apprenez (ou revoyez) les commandes 
BASIC concernant les touches (KEY en 
Grand-Breton), cela vous permettra 
d'adapter bon nombre de programmes 
écrits dans ledit BASIC (entre autres 
ceux de votre revue préférée). 
En apéritif, voici l'adaptation de ABC 
(CPC 9) éducatif au demeurant excellent 
qui vous permettra de vous faire les 
dents ! 
Il s'agit ici de modifier le code des tou- 
ches incriminées. Editez les lignes qui 
suivent et remplacez les valeurs entre 
parenthèses après INKEY comme suit : 
2200 remplacer 69 par 67 . 69 = A 
QWERTY 
2310 remplacer 59 par 71. 59 = W 
QWERTY 
2410 remplacer 67 par 69 . 67 
QWERTY 
2450 remplacer 71 par 59. 71 = 
QWERTY 


Q 
Z 


Robert IPSER et sa fille, de Ronchin, vous 
ôtent là une belle épine du pied ! 
Ilexiste certainement d'autres problèmes 
dont nous aurons l’occasion de vous 
faire part. Il Va sans dire, par exemple, 
que les programmes en code machine ne 
seront pas les moins difficiles à modifier. 
Si vous avez des solutions, adaptation de 
programmes ou autres, écrivez-nous. 
Tout le monde en profitera. 

Puisque nous y sommes, continuons 
dans les problèmes de compatibilité. 
Nombreux étaient les utilisateurs de 464 
qui regrettaient de ne pouvoir se servir 
d'EDIMUSIC (CPC 13). Voici le sésame. 
Il s'agit de remplacer tous les CLEAR 
INPUT par CALL &BBO3, tous les 
FRAME par CALL &BD19, tous les CUR- 
SOR 0 par CALL &BB84 et tous les CUR- 
SOR 1 par CALL &BB81. 

Patrice PETIT de Verrières brûlait de nous 
faire part de ses trouvailles, c'est fait. 


Amstus, le tableur de Marie-Pierre BIL- 
LIOUD, nous a valu, et nous vaut encore, 
une quantité d'appels à l'aide, aussi 
allons-nous donner quelques explications 
sur sa manipulation. 

Chargez le programme et exécutez les 
commandes dans l’ordre qui suit. Vous 
trouverez à gauche la touche à action- 
ner, en face, l'affichage obtenu : 


MR ER TT RIT PES FEUILLE 
COPY ae 46 RE Serra GLOBAL 
COPY spé Pause à FORMAT 
FLECHE DROITE LARGEUR COLONNE 
COPY ..... LARGEUR COLONNE : 7 
ENTIER: 2% 6 4 data era AT:1) 
fr EN a nee A HN Po DS FEUILLE 
CORY ie denied GLOBAL 
4 FLECHES DROITES ....... TITRE 
COPY Lemon Gus LIGNE 
2 FLECHES DROITES .... LES DEUX 
COPY SL ns cars TABLEAU 
RE D FEUILLE 


Et la boucle est bouclée. Relisez le texte 
d'accompagnement d'AMSTUS ainsi 
que l'article de CPC n° 10 (et les cala- 
mités de CPC n° 7), exécutez la mani- 
pulation ci-dessus plusieurs fois et vous 
commencerez à ÿ voir plus clair. Et, de 
grâce, ne nous demandez plus de rensei- 
gnements à ce sujet. À compter de ce 
jour, nous entamons une grève sauvage, 
dure et définitive ! Au fait, vous alliez 
oublier de remercier Gilbert BELLON 
d'Etretat qui vous proposait ces grandes 
manœuvres. || avait un peu de temps dis- 
ponible (il en fallait !) puisqu'il est retraité. 
Voyons maintenant une impression de 
catalogue simplissime autant qu'effi- 
cace. 

Entrez les lignes : 


10 MODE O 

20 POKE &BB5B,PEEK(&BD2C) 
30 POKE &BB5C,PEEK(&BD2D) 
40 CAT 

50 CALL &BD37: DISC:MODE 1 


Des explications ! Détournement (ne 
dites surtout pas détournage, et encore 
moins détournure, l’auteur, Jean BABICZ 
de Villeblevin, vous en voudrait !) détour- 
nement, disions-nous, de la routine d'af- 
fichage &BB5A vers celle d'impression 
&BD2B. La ligne 50 remet tout en ordre. 


Vous venez d'essayer et l'impression sur 
une colonne vous laisse sur votre faim ? 
Entrez en 10 MODE 1 et vous avez deux 
colonnes. Les plus subtils d'entre vous 
auront deviné comment en obtenir 4 ! 
Nous terminerons par un conseil d'ordre 
général. Avant d'acheter du matériel 
(imprimante, lecteur de disquette, exten- 
sion mémoire, câble), testez-le chez le 
revendeur dans votre configuration ! Cela 
vous évitera de rencontrer le même pro- 
blème que ce lecteur qui pensait que tous 
les périphériques de la gamme AMS- 
TRAD sont compatibles et qui se 
retrouve avec un stylo optique L.P.1 d'un 
côté et une imprimante DMP 2000 de 
l'autre sans pouvoir les faire communi- 
quer. À ce sujet, si l’un d'entre vous con- 
naît la solution logicielle au problème, 
qu'il nous fasse signe. Nous pourrions 
même ouvrir une petite rubrique S.O.S. 
sur le modèle de APPEL A TRUC qui 
serait consacrée au matériel. En tout état 
de cause, retenez bien le conseil ci- 
dessus, les échanges a posteriori gênent 
autant le revendeur que vous-même. 
Mieux vaut prévenir que guérir ! 


Heureux possesseurs d'AMSTRAD, 
vous pouvez maintenant utiliser le 
réseau téléphonique pour com- 
muniquer avec vos alter égo, AMS- 
TRADISTES eux-aussi, ceci via votre 
minitel. 


Pour700 F TTC le logiciel SÉRIE.2 vous connectera sur 
le réseau téléphonique commuté pour transmettre 
fichiers, programmes, dessins, etc. 

Vous pourrez aussi économiser vos coûts de consulta- 
tion en enregistrant, imprimant et archivant sur votre 
micro, toutes les informations accessibles par minitel 
(chiffrez déjà ce que vous allez gagner sur vos banques 
de données favorites). 


Et si cela ne suffit pas à vous convaincre, sachez que 
grâce àSÉRIE.2 vous pourrez aussi utiliser le clavier de 
votre micro à la place du clavier minitel, transformer 
toutes suites d'écrans VIDÉOTEX en fichier ASCII impri- 
mer des étiquettes adresses à partir de l'annuaire élec- 
tronique... 


Le logiciel SÉRIE.2 est maintenant agréé par la fnac 


En ajoutant que vous ne trou- 
verez pas moins cher ailleurs, 
vous serez certainement 
conquis. = 


Le logicielSÉRIE.2 fonctionne sur AMSTRAD CPC 464 avec lecteurs de disquettes DDI, 
CPC 664, CPC 6128, PCW 8256 et PCW 8512 équipés de l'interface série d'AMSTARD 


DIALECTIQUE 


OMMUNICATION 


GROUPE DE 


PLICATION 


Second message personnel, à LUU-THO pe 7 


Je désire recevoir un coffretSÉRIE.2 contenant un logiciel SÉRIE, un câble de raccordement, et un guide 
de l'utilisateur, au prix de 700 F TTC. 


Je désire recevoir un coffretSÉRIE.2 spécial PC 1512 au prix de 1490 F TTC, (cette version permet 
la recherche automatique des codes postaux sur annuaire électronique). 

Je désire recevoir une disquette de démonstration contre la somme de 65 F TTC. 

Je désire recevoir un complément d'information (gratuit) 

M, Mme : 


Adresse : 


Tâm-Hercule, cette fois, envoyez nous 
un listing assembleur commenté de votre 
programme. 


APPEL A TRUC 


_ Code postal : 
En cas de règlement joint, JMN Diffusion prend à sa charge les frais de port. 
A retourner à : JMN Diffusion - Les Clématites - 38410 URIAGE. 


Saurez-vous écrire un programme court 
permettant à un crayon optique de trans- 
crire les codes-barre des articles d'épi- 
cerie, par exemple ? 


CAO SUR MICRO CPC 


Première partie 
STRUCTURE DE DONNEES 


Jean-Pierre PETIT 


Jean-Pierre PETIT est directeur de recherche au CNRS. Il est l'auteur d'un 
logiciel de CAO de 120 K intitulé AMSTRAD 3D, assorti d'un livre du même 
nom, édité par PSI. Le logiciel a été délibérément mis dans le domaine public, 
c'est-à-dire que vous pouvez le copier sur une disquette AMSTRAD CPC en 
toute tranquillité chez un revendeur ou un ami. Le livre est un gros mode 
d'emploi du logiciel, pour non programmeur. 

Mais ce programme est riche de ficelles de programmation liées à l'ima- 
gerie 3D. Dans cette suite d'articles, Jean-Pierre PETIT expliquera au lec- 
teur toutes ces astuces, ce qui lui permettra peut-être de construire lui- 
même son propre programme de CAO. 


LES OBJETS FIL DE FER 


Pour fabriquer des images 3D, il faut 
des OBJETS. Ceux-ci seront des struc- 
tures polyédriques, ensembles de 
points dans l'espace réunis par des 


Figure 1 : Objet, et sa décomposition en chaînes 
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segments. Le décor sera décomposé 
en sous-ensembles. La structure de ba- 
se sera ce qu'on appellera la CHAINE, 
c'est-à-dire un ensemble de points 
chainés, réunis par des segments. 
Un ensemble de chaînes s'appellera un 


XT (I, J) 
YT (I, J) 
ZT (I,J) 


N (i) 


Figure 3 : Structure de données 


OBJET et un ensemble d'objets un 


BLOC. 


les est le nombre de segments d'une 
chaîne qui sera N(l). L'indice J variera 
donc de O à N{l) (ce qui fait bien N(l) + 
1 points). 


LA STRUCTURE DE DONNEES 


La STRUCTURE DE DONNEES en dé- 
coule de manière évidente. Il nous fau- 
dra faire une réservation de places mé- 
moires correspondant à ces quatre fi- 
chiers XT(I,J),YT(I,J),ZT(I,J),N(I} pour 
pouvoir gérer des OBJETS. 

La grave question est alors : quelle 
importance donner à ces fichiers étant 
donné la mémoire disponible ? 

Le CPC a 42249 octets disponibles, di- 


rectement adressables. Nous nous con- 
tenterons de cette place mémoire pour 
héberger programmes et fichiers, réser- 
vant la mémoire additionnelle au stoc- 
kage de pages écran, qui seront gé- 
rées par la routine BANKMAN, opéra- 
tion sur laquelle nous reviendrons ulté- 
rieurement. 

On tombe alors sur une question d'opti- 
misation, que seule l'expérience peut 
résoudre. Plus les fichiers objets se- 
ront importants et moins on aura de pla- 
ce pour le programme. Nous conseil- 
lons aux utilisateurs de CPC le choix : 


DIM 
XT(49,12),YT(49,12,YT(49,12),N(12) 


La figure 1 montre une des décomposi- 
tions possibles d'un objet CUBE en 
CHAINES. Une des chaînes est consti- 
tuée de quatre segments, donc de 5 
points. Il existe des chaînes consti- 
tuées d'un segment unique. Pour repé- 
rer les points sur cette chaîne, il faudra 
définir des coordonnées cartésiennes 
XT, YT, ZT (T pour target, qui veut dire 
cible en anglais). J sera l'indice du 
point sur la chaîne. | sera l'indice de la 
chaîne dans l'objet. Sur la figure 3, on a 
représenté les coordonnées d'un des 
points de cette chaîne qui sont : 


Listing 1 


INFLIT 
QFENQUT 
FRINT 


FOR 


l 
allant 
ÉLCINT 


ET ON 


"Nom Mulæ 


CRE 


HO Lr REM l'objet à (L+li cha 


TO Lis KEM Four toutes leg c 


dés OO a LL 
#9 mis KREM Nombre 


clé &eæcimen 


REM Feu tous Les 


d'imdice 1 


chaque Chaines 
XT (I,J) TA mis 
YT (I,J) La chaine 
ZT (I,J) FRCINT 


Ce qui signifie coordonnées du JEmMe 
point de la I£Me chaîne de l'objet 
considéré. Une des données essentiel- 


AOBC 
g900 


*EQUATIONS (Systèmes linéaires, second degré 
pour 3°, 2€) 
*GEOMETRIE (Géométrie plane et transformations 
3talT) 


vier, manette ou souris AMX) 
“RAMDISK (Ajoute 64k de capacité disque à 
votre 6128) 
“ESPACE et SOLIDE (Géométrie dans l'espace et 
solides 1'eT) 
*MATHS - 54 (5e et 4°) 


(H JCRO 


NE X T 


EL. 


HO HE Cle 1) vtt (1. 
1#NEXT 
AUIT 


KE TLIFH 


150 F/200 F 


3, boulevard de Beaumont 
35000 RENNES 
Tél. : 99.31.76.41. 


Tous matériels et logiciels D me D 
oo : ATARI cyo | MATHS 4 (ALGEBRE) 170F 
i *PCW PAINT (super Cherry Paint) ............... 350 F 
*MATHS-SECOND - CYCLE (1'€, T) .......... 200 F/250 F 


Egalement disponible chez de nombreux revendeurs. 


BON DE COMMANDE 


CPC : 


ER  . 200 F | à renvoyer à MICRO C accompagné de votre chèque ou règlement 
“CHERRY PAINT (Logiciel de création graphique avec cla- | NOM : Désignation Qté [Prix 
a 160 F | ADRESSE : | 
| 
D Rd de a ed 
Pur | CODE POSTAL : 
| VILLE : 
2 | a sa 

en F| 


: *MATHS - 6 (Algèbre 6°) 


Listing 2 


O0 
3010 
TR e) 
MODE 
INES 
3070 FOR I=0Q 
AINES ALLANT DE © 
040 INFUT #O9,N(I): 
TS SUR CHAQUE CHAINE 
6080 FOR JzQ TO N(T) 
FOINTS DE LA CHAINE 
MTRT-TR) 
3070 
080 
3799 


INFUT 
OFENIN el# 


NEXT J:NEXT T 
CLOSETIN 
RETLIRN 


qui créera en mémoire 50 chaînes de 
12 segments. Un objet pourra donc être 
au maximum constitué de 600 seg- 
ments. 

Avant d'aller plus loin, nous devons 
écrire les séquences qui correspon- 
dront au stockage et au chargement 
des OBJETS (listings 1 et 2). 


On ne s'est pas préoccupé pour le mo- 
ment de savoir comment créer un tel 
objet. 


STRUCTURE DE BLOC 


Nous avons dit que les OBJETS pou- 
vaient être eux-mêmes regroupés en 
BLOCS. Ceux-ci seront constitués 
d'ELEMENTS ELS$(K). Un bloc contien- 
dra E+1 éléments, ce qui fait que l'indi- 
ce de bloc K variera de 0 à E. On peut 
donc immédiatement envisager des 
routines de stockage et de chargement 
de blocs (listing 3). 


Et analogue pour le chargement. On 
voit donc la procédure envisagée. Pour 
dessiner un ensemble d'objets, un 
bloc, on chargera ce bloc dans le fi- 
chier d'ELEMENTS EL$(K) contenant 
les noms de tous les objets constituant 
le bloc, puis, après avoir défini les pa- 
ramètres de visée (que nous étu- 
dierons dans les articles suivants), on 
chargera les objets les uns après les 
autres et on en formera les images sur 
l'écran. 


Combien d'objets par bloc ? On choisira 
DIM ELS$ (29), c'est-à-dire un effectif 
maximal de 30 objets. On notera que 
ceci porte la capacité théorique maxi- 
male de traitement à 30 x 600 = 18000 
segments. On pourrait donc traiter 
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INFUT #9,L: REM L'OBJET À 


REM chargement objet 
"Nom de l'obiet 


Mel 


(L+1) CHA 


TQ L:REM FOUR TOUTES LES CH 
A L 
REM NOMBRE DE SEGMEN 


REM FOUR TOUS LES 


D'INDICE I 
INFUT HO, XT CTI) ,YT(T,J),2TCI,MJ) 


avec un programme ad hoc un ensem- 
ble représentant 18000 segments. 
Mais est-ce réaliste ? Non, pour deux 


Listing 3 


GTeleIe) 
6010 
6020 
TRS) 
HLOC 
6040 FOR EHeOQO- TO E 
6OEQ FRINT #O,ELÆ CH): 
ES FICHIERS-ORJETS 
6080 NEXT EH 

68070 CLOSEQUT 

6999 RETURN 


REM STOCKAGE 
INFUT "NOM DU 
OFENOUT BLE 

FRINT #9,E:REM 


BLOC 


Pylone 


HLOC 


(E+i)i 


REM STOCKER 


raisons. La première est que la dis- 
quette AMSTRAD n'a pas une capacité 
suffisante pour héberger ces 18000 
segments. La seconde est que l'écran 
AMSTRAD se boucherait totalement 
avec une telle avalanche d'informa- 
tions. Mais, dans la pratique, on n'hési- 
tera pas à fragmenter un décor en ob- 
jets, même si ces objets ne font qu'une 
douzaine de segments. 

A ce stade, le lecteur se dira : bon, je 
n'ai pas beaucoup avancé. Je sais seu- 
lement quels sont les fichiers à créer et 
les ordres de réservation de places mé- 
moires à inscrire en tête de programme. 
J'ai aussi quelques sous-programmes 
d'écriture-lecture de fichiers sur dis- 
quette. 


VERS L'ELIMINATION 
DES HORS-CHAMP 


Imaginons un décor qui soit constitué 
par tout un ensemble de bâtiments, qui 


"EL 


OBJETS DANS LE 


NOMS D 


Figure 4 


Figure 5 


seront des structures polyédriques 
assez simples, le tout étant regroupé 
dans un bloc d'une vingtaine de cons- 
tructions. L'EDF veut implanter un py- 
lône haute tension à proximité de ce 
“village” et on veut savoir si ce pylône 
sera visible de la grand'place, qui est 
un "site classé". On créera dans un 
bloc la vingtaine de maisons entourant 
la grand'place et ledit pylône. (voir figu- 
re 4). Puis, on créera un certain nombre 
d'images à partir des différents points 
de la place pour voir si le pylône est ou 
non visible (figure 5). Lorsqu'on effec- 
tuera le calcul de chaque image, il est 
bien évident que seules certaines des 
maisons-objets seront dans le CHAMP 
VISUEL. Si on ne prévoit rien, l'ordina- 
teur recevant l'ordre de dessiner ce 
bloc VILLAGE va charger ce fichier 
bloc, constitué de : 


PYLONE 
MAISON1 
MAISON2 


MAISON20 


puis, laborieusement, il créera les ima- 
ges de tous ces objets, y compris 
ceux qui sont à l'opposé de la direction 
de visée. On aura là un gâchis de 
temps manifeste. Pour ne pas tomber 
dans cet inconvénient, on pourra envi- 
sager de créer un sous-programme 
d'élimination des hors-champ. Voyons 
comment ce programme serait structu- 
ré. Tout objet a un CENTRE DE GRAV/I- 
TE, un ‘point moyen”. On obtient les 
coordonnées XG,YG,ZG de ce point 
moyen en faisant la moyenne arith- 
métique des coordonnées XT,YT,ZT et 
en écrivant : 


XG = XT moyen 
YG = YT moyen 
ZG = ZT moyen 


On peut ensuite chercher à calculer le 
RAYON DE LA SPHERE D'EMCOM- 
BREMENT de l'objet, de la sphère qui 
contient tous les points de l'objet. Il 
suffira de considérer tous ces points 
les uns après les autres en calculant la 
longueur du segment GT (joignant le 
centre de gravité G au point). Le rayon 
R de la sphère d'encombrement sera la 
valeur maximale de GT (figure 6). 

Nous allons tout de suite donner le 
sous-programme permettant de réaliser 
ce traitement (listing 4). 


Ces renseignements seront caractéris- 
tiques de chaque objet. Il est donc indi- 
qué de les stocker. avec l'objet lui- 
même. Dans le sous-programme de 
stockage d'objet, on avait la ligne : 


Listing 4 


44000 REM CALCUL. 


BE CG ET 
44010 GX=o:GY=0:GZ=0s: NOIRE (EH) = 


Figure 6 : Centre de gravité 
et rayon de sphère d'encombrement 


8020 PRINT %9,L : REM L'objet a(L+1) 
chaînes où on se contentait de stocker 
le nombre de chaînes, moins une, c'est- 
à-dire le contenu d'un registre L. On 
remplacera cette ligne par : 


8020 PRINT %9,CO(K), GX(K),GY(K), 
GZ(K),RE(K),L : REM L'objet a (L+1) 
chaînes. CO couleur, GX,GY,GZ, coor- 
données CG, R rayon sphère d'encom- 
brement. 


Au passage, on a rajouté une infor- 
mation concernant la couleur de l'objet. 
On aura évidemment une modification 
analogue pour le chargement. 


DE K 
REM IN 


ITIALISER LES REGISTRES 


44020 FOR I=G 


44070 
44040 
44050 
44060 
44070 
44080 
44090 
44100 FOR Izû 
QUR TOUS LES FOINTS 


NEN+1: 
GX=GX+XTCI,d) 
GY=GY+YT(CI,1J) 
GZ=GZ+2T(I.J) 
NEXT JeNEXT I 


TQ L:FOR 
FOUR TOUS LES FOINTS 
REM COMPTEUR DE FOINTS 


J= TO N(I): REM 


GX CH) =GX/N: GY CH) =GY/N: GZ CHI eGBZ/N 
REM CALCUL DE K 
TQ L:FOR 


J=0 TO NII :REM F 


44110 RE=SORÇCCXT CI. J)-XG(H))#CXTIT, Ji -xG( 
HDI +CYTIT,J)-YGCE) DE CYTCI Ji -YG(HI)+ÉEIT( 
I,di-2G(H3)#(ZT(I.Ji-2G(KH)3) 


44170 
RCHE SUF DE KR 

44130 NEXT JiNEXT I 
44999 RETURN 


IF REGFIER THEN RE(K)=R: 


REM RECHE 
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Listing 5 


ÉTRIRTA 


ia 0 


TENTE] 


Z CHI RE CE) S e 
S-OBJETS FLUS RENSEIGNEMENTS 


TRISTE) 
é63 7 Ci 


FOR 


REM STOCKAGE ELOC 
INEUT "NOM DU BLOC 
DPENQUT BLE 
FRINT 


"es HLE 


(E+1) ODRJETS CANS LE 

EeQ TO E 

PRINT #H9.ELSE CE COGCED GX (EN BY CES EG 
REM STOCÉER NOMS DES FICHIER 

QU CG ET & 

NEXT E 

CLOSEQOUT 

RETLRH 


Listing 6 


PQ REM CHARGEMENT El D 


INFLIT "NOM 
DPENIN EL 


GO FOR kæG TO E 
INFLIT 


; ai Cl CIN 
7906 RETLEN 


5020 INPUT 
%9,CO(K),GX(K),GY(K),GZ(K),RE(K), 
L : REM L'objet a (L+1) chaînes. CO 
couleur, GX,GY,GZ, coordonnées CG, 
R rayon sphère d'encombrement. 
Lorsqu'on traitera un BLOC, on ne s'a- 
musera pas à recalculer GX,GY,GZ,R 
pour chaque objet. On aura donc tout 
intérêt à consigner ces valeurs dans le 
bloc. La routine de stockage bloc 
deviendra alors celle du listing 5 et la 
routine de changement sera celle du lis- 
ting 6. 


Gardez bien en tête ces structures de 
base qui permettent de manipuler les fi- 
chiers objets. Elles seront la charpente 
de toute construction ultérieure. 

Lorsque nous voudrons dessiner un 
BLOC, nous chargerons celui-ci, puis 
nous chercherons les images, non des 
objets, mais des sphères d'encombre- 
ment liées aux objets, qui seront com- 
me des bulles contenant chacun de 
ceux-ci. Un champ visuel total corres- 
pondrait à une sorte d'écran sphérique 
(voir figure 7), alors que le champ vi- 
suel de l'écran de l'ordinateur n'est 
qu'une fenêtre découpée dans cette 
sphère. 
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QU BLOC 


"sELE 


INPUT HSE: REM CExii OBJETS DANS LE 


FU HO ELÆ CEST COQUE GX CE) 
Z CHI RE CES REM CHARGER 


NOQMS TI 


On cherchera à priori les images cir- 
culaires de toutes les sphères d'en- 
combrement sur la sphère de référence 
et on ne conservera que les objets dont 
le cercle, qui est l'image de la sphère 
d'encombrement, coupe la fenêtre 
écran, ou est entièrement contenu 
dans celui-ci. Voir figure 8 : les objets 


œil de l'observateur 


fenêtre 
<— du champ 
visuel 


Figure 7 


01 et 02 sont conservés, les objets 03 
et 04 sont hors champ. 

Concrètement, on se contentera de cal- 
culer l'image d'un seul point de l'objet 
d'indice K : son centre de gravité, de 
coordonnées GX (K), GY(K), GZ{K). 
Puis la seule donnée du rayon d'en- 
combrement RE(K) permet de calculer 
le DIAMETRE APPARENT de la sphère 
d'encombrement. On effectue des 
tests et, si l'objet est HORS CHAMP, 
on "compacte le bloc" en l'éliminant. Si 
chaque maison comporte cinquante ou 
cent points, il est évident qu'on ga- 
gnera un temps précieux puisqu'on 
aura un calcul d'une image-point au lieu 
de cent. 

Nous ne pouvons pas donner toute la 
démarche puisqu'il faudrait donner ici 
toutes les précisions sur la façon dont 
on calcule les images, ce qui fera l'ob- 
jet d'un article suivant. Mais ceci nous 
permet de comprendre pourquoi les 
données du centre de gravité et du 
rayon de la sphère d'encombrement doi- 
vent accompagner celles des chaînes 
définissant l'objet. 


Figure 8 : Elimination des hors-champ 


TURBO PASCAL 

Douglas Stivison 

Réf. S01. 210 p., 148F 

Ce livre a été écrit afin d'aider les 
utilisateurs d'Amstrad à développer aussi 
rapidement que possible les programmes 
en Turbo Pascal. 


Nouveau 

L'ASSEMBLEUR 

SOUS CP/M 

Anatole d'Ardancourt et Michel 
Laurent 

Réf. S02, 200 p., 148 F 

Cet ouvrage a pour but de familiariser le 
programmeur en assembleur avec ces 
utilitaires mis à sa disposition sous le 
système d'exploitation CP/M+ 


Nouveau 

MUSIQUE ET SON 

Gérard Blanc et Philippe 
Destrebecq 

Réf. S03, 160 p., 138 F 

Ce livre décrit la mise en œuvre du 
synthétiseur musical de l'Amstrad 


Nouveau 

JEUX D'AVENTURE 

Franck Vivier et Jean-Luc Joude 

Réf. S04, 224 p., 128F 

Ce livre se propose, au fil des chapitres, 
d'amener le lecteur à la résolution d'un 
problème complet, la programmation d'un 
jeu d'aventure 


GEREZ VOTRE 
PORTEFEUILLE BOURSIER 
Jean-Claude Despoine et 

François Plerre 

Réf. S05, 140 p., 28F 

Cet ouvrage aidera l'amateur à gérer plus 
efficacement son porteteuille de valeurs 


PROGRAMMEZ VOTRE 
TRAITEMENT DE TEXTE 
Jean-Claude Despoine 

Réf. S06, 140 p., 128 F 

Le traitement de texte présenté dans cet 
ouvrage, pour l'essentiel en assembleur, 
est destiné à tous les possesseurs de 
CPC 464 (avec ou sans lecteur de 
disquettes), 664 et 6128 


PROGRAMMES 
D'INTELLIGENCE 
ARTIFICIELLE 

Daniel Lebigre 

Réf. S07, 240 p., 148 F 

Cet ouvrage permettra au lecteur 
d'aborder le monde fascinant de 
l'intelligence artificielle. 


MIEUX PROGRAMMER 

EN ASSEMBLEUR 

Thomas Lachand-Robert 

Réf. S08, 240 p., 148 F 

Cet ouvrage est destiné à tous ceux qui 
ont déjà acquis les bases de la 
programmation en assembleur ou en 
langage machine 


TECHNIQUES DE 
PROGRAMMATION DES 
JEUX EN ASSEMBLEUR 
Georges Fagot-Barraly 

Réf. S09, 160 p., 98 F 

Cet ouvrage contient des programmes 
de jeux écrits pour les ordinateurs 
Amstrad CPC 464, 664 et 6128 


JEUX EN ASSEMBLEUR 

Eric Ravis 

Réf. S10, 104 p.,78F 

Les 18 jeux présentés dans ce livre 
utilisent toutes les possibiités de votre 
micro-ordinateur. 


STAMP.Æ 


DIFFUSIO 


coin du livre 


LOCOSCRIPT 

Bernard Le Dü 

Réf. S11, 140 p., 110 F 

Ce livre est une introduction et, par sa 
démarche pédagogique, il vous 
permettra une découverte aisée et rapide 
de ce traitement de texte. 


MISE AU POINT DES 
PROGRAMMES BASIC 
Claude Vivier et Yvon Jacob 

Réf. S12, 148 p., 98 F 

Ce livre étudie la manière dont sont 
stockés, dans la mémoire d'un micro- 
ordinateur, un programme Basic et ses 
variables associées 


JEUX DE REFLEXION 

Georges Fagot-Barraly 

Réf. S13. 200 p., 78F 

Cet ouvrage contient vingt programmes 
de jeux de réflexion écrits pour les 
ordinateurs Amstrad 


ASTROCALC 

Gérard Blanc et Philippe 
Destrebecq 

Réf. S14, 168 p., 148 F 

Si vous souhaitez disposer d'un outil de 
calculs permettant l'érection d'un thème 
natal où d'une révolution solaire, Ja 
comparaison de thèmes, cet ouvrage 
vous comblera 


CREER DE NOUVELLES 
INSTRUCTIONS 

Jean-Claude Despoine 

Réf. S15, 144 p., 128 F 

Cet ouvrage contient de nombreux 
exemples de programmes : pause de x 
secondes, intégration d'un programme 
machine, dessin d'un quadri!atère 


GAGNEZ AUX COURSES 
Jean-Claude Despoine 

Réf. S15, 112 p., 98 F 

Ce livre se propose d'expliquer comment 
ilest possible d'utiliser un ordinateur pour 
étudier une course d'une manière 
rationnelle et rapide 


CP/M PLUS 

Anatole d'Hardancourt 

Réf. S17, 208 p., 148F 

Après le succès des CPC 464 et CPC 
664, utilisant la version 2.2 de CP/M, 
Amstrad présente ses deux nouvelles 
machines (CPC 6128 et PCW 8256) 
équipées de la version 3 0, encore 
appelée CP/M Plus 


GUIDE DU BASIC 

ET DE L'AMSDOS 

Jean-Louis Greco et Michel 

Laurent 

Réf. S18, 288 p., 128 F 

Ce guide est un dictionnaire complet du 
Basic Amstrad disponible sur les modèles 
CPC 464, CPC 664 et CPC 6128 


GRAPHISME 

EN TROIS DIMENSIONS 
Thomas Lachand-Robert 

Réf. S19, 240 p. 148 F 

Vous pourrez, grâce à ce livre. 
représenter des polyèdres, des surfaces 
voire des objets plus complexes en trois 
dimensions sur l'écran de votre 
ordinateur 


ASTROLOGIE/ 
NUMEROLOGIE/ 

BIORYTHMES 

Pierrick Bourgault 

Réf. S20, 160 p., 108 F 

Cet ouvrage se présente en quatre 
parties : astrologie occidentale, astrologie 
chinoise, numérologie, biorythmes 


CP/M 2.2 

Anatole d'Hardancourt 

Réf. S21, 248 p., 128 F 

Avec l'Amstrad, le système CP/M 
disponible pour le première fois sur un 
ordinateur coûtant moins de cinq mille 
francs, ouvrant à celui-ci l'immense 
bibliothèque des programmes 
d'applications professionnelles 


GUIDE DU GRAPHISME 

James Wintord 

Réf. S22, 208 p., 108 F 

Cet ouvrage présente, à l'aide 
d'exemples de programmes en Basic, 
toutes les techniques indishensables 
pour permettre au lecteur de réaliser de 
façon simple et rapide ses programmes 
graphiques 


L'AMSTRAD EXPLORE 

John Braga 

Réf. S23, 192 p., 108 F 

A ceux qui ont déjà acquis les rudiments 
du Basic, ce livre permettra d'approfondir 
leur connaissance de la programmation 


PROGRAMMATION 

EN ASSEMBLEUR 

Georges Pagot-Barraly 

Réf. S24, 208 p., 108 F 

Tous les utilisateurs d'Amstrad qui 
veulent aller plus loin, après avoir maitrisé 
les ressources du Basic, trouveront dans 
cet ouvrage les éléments nécessaires 
pour aborder la programmation en 
assembleur 


56 PROGRAMMES 

Stanley R. Trost 

Réf. S25, 160 p., 78F 

Ce livre vous propose 56 programmes 
prêts à l'emploi dans de nombreux 
domaines d'application personnels et 
professionnels 


PREMIERS PROGRAMMES 
Rodnay Zaks 

Réf. S26, 248 p., 108 F 

Ecrivez votre premier programme Basic 
sur Amstrad en moins d'une heure 


JEUX D'ACTION 

Pierre Monsaut 

Réf. S27, 96 p., 49 F 

18 jeux d'action en Basic pour votre 
Amstrad tank. trace. D C A .bitz, 
squash, alphabet, numérix, atternssage 
etc 


LA DECOUVERTE 

DE L'AMSTRAD 

D.J. David 

Réf. P01,216p.,115F 

Cet ouvrage apprend à programmer en 
Basic l'Amstrad CPC et à en utiliser les 
capacités graphiques et sonores. Ce livre 
s'adresse aux utilisateurs débutants de 
l'Amstrad CPC 464, 664 et 6128 


EXERCICES EN BASIC 
POUR AMSTRAD 

M. Charbit 

Réf. P02, 256 p., 130 F 

Tous les programmes de cet ouvrage. 
destiné au débutant qui veut se 
pertectionner 


BASIC AMSTRAD . 

1° Méthodes pratiques 

J. Boisgontier 

Réf. P21, 208 p., 105 F 

Destiné aux possesseurs d'Amstrad qui 
ont déjà pratiqué le langage Basic 


BASIC AMSTRAD 

2°) Programmes et fichiers 

J. Boisgontier 

Réf. P22,144p.,95F 

Pour les utilisateurs initiés, une mine 
d'applications 

+ des programmes graphiques, 

- des programmes de gestion de fichiers, 
- des jeux à exécution très rapide, 

+ des programmes éducatifs 


BASIC PLUS 80 ROUTINES 
SUR AMSTRAD 

M. Martin 

Réf. P23, 168 p., 100F 

L'auteur propose 80 routines pour 
simuler des fonctions qui n'existent pas 
directement sur la machine 


PERIPHERIQUES 

ET FICHIERS 

SUR AMSTRAD CPC 

D.-J. David 

Réf. P03, 168 p., 120 F 

Ce livre étudie la programmation en Basic 
des fichiers et des périphériques. Le 
lecteur doit déjà bien maîtriser les 
instructions de base du CPC 


TURBO PASCAL 
SUR AMSTRAD 


. D. Brandals et F. Blanc 


Réf. PO4, 232 p., 135 F 

Destiné aux possesseurs d'Amstrad 464, 
664, 6128 et PCW 8256, ce livre leur 
permettra de maîtriser ce langage très 
puissant. Une bonne connaissance d'un 
langage comme le Basic est nécessaire 


ASSEMBLEUR 

DE L'AMSTRAD 

M. Henrot 

Réf. P24, 192 p., 105F 

Pour lire cet ouvrage, ii faut avoir une 
bonne pratique du langage Basic 


CP/M PLUS SUR 

AMSTRAD 6128 ET 8256 

Y. Dargery 

Réf. P25, 128 p., 100 F 

L'utilisateur initié de l'Amstrad CPC 
trouvera ici tous les éléments qui lui 
permettront d'utiliser à fond les “plus” de 
CPM3 


RSX ET ROUTINES 
ASSEMBLEUR 

SUR AMSTRAD 

D. Roy et J.-J. Weyer 

Réf. P05, 368 p., 200 F 

De très nombreux programmes de 
graphismes et de mathématiques 
permettront aux possesseurs d'Amstrad 
(464, 664,6128) d'améliorer leurs 
connaissances en assembleur Z80 


CLEFS POUR 
AMSTRAD CPC 

Tome 1 - Système de base 
D. Martin 

Réf. PO6, 224 p., 140 F 

Un mémento indispensable au 
programmeur de CPC 


CLEFS POUR 

AMSTRAD CPC 

Tome 2 - Système disque 

D. Martin et P. Jadoup 

Réf. PO7, 232 p., 155 F 

Consacré aux Amstrad CPC 464, 664, 
6128 et PCW 8256, ce mémento procure 
un accès rapide à l'ensemble des 
informations indispensables à l'utilisateur 
du système disque : commandes, points 
d'entrée des routines disque, blocs de 
contrôle 


LE LIVRE DE L'AMSTRAD 


D. Martin et P. Jadoup 

Réf. PO8, 256 p., 120 F 

Pour l'amateurinitié qui veut en savoir 
plus 


102 PROGRAMMES 

POUR AMSTRAD 

J. Deconchat 

Réf. P09, 248 p., 120 F 

Ce livre, idéal pour le débutant, va, au fil 
de ses 102 programmes de jeux guider 
le lecteur dans l'exploration du Basic 
Amstrad. 


SUPER JEUX AMSTRAD 

J.F. Séhan 

Réf. P10, 240 p., 120F 

Des jeux d'adresse, de réflexion et de 
hasard pour l'amateur, déjà initié, qui veut 
maitriser rapidement le Basic 


AMSTRAD EN FAMILLE 

J.F. Séhas 

Réf. P11, 240 p., 120F 

Une sélection de 40 programmes pour la 
maison touchant à sept domaines. 


AMSTRAD A L'ECOLE 

D. Vielsen et A. Garcla-Ampudia 
Réf. P12, 232 p., 120F 

21 programmes d'enseignement assisté 
par ordinateur à recopier. 


AMSTRAD EN MUSIQUE 

D. Lemahieu 

Réf. P13, 244 p., 165F 

Cet ouvrage va permettre à l'utilisateur, 
déjà initié au langage Basic, la traduction 
d'œuvres musicales sur Amstrad. 


PHOTOGRAPHIE 

SUR AMSTRAD ET APPLE 

P. Moigneau et X. de la Tuthaye 

Réf. P14, 192 p., 180 F 

Permet à l'amateur, déjà initié au Basic, 
l'exploration de toutes les ressources de 
la photo. 


CLEFS 

POUR DBASE II ET Ill 
M. Keller 

Réf. P15, 464 p., 285 F 

Cet outil de référence pour tout 
programmeur. 


CLEFS POUR MULTIPLAN 
Version 2.0 

J.-L. Marx et A. Thibault 

Réf. P16, 132 p., 105 F 

Cet ouvrage de référence pour 
l'utilisateur de Multiplan. 


SUPER GENERATEUR 

DE CARACTERES 

SUR AMSTRAD 

J.-F. Séhan 

Réf. P17, 216 p., 140F 

Cet ouvrage, destiné aux amateurs initiés 
au Basic, propose un programme original 
de création de caractères graphiques. 


GRAPHISME 

EN ASSEMBLEUR 

SUR AMSTRAD CPC 

F. Plerat 

Réf. P18, 304 p., 145 F 

Cet ouvrage permet de programmer des 
applications graphiques en assembleur 
sur Amstrad. 


CREATION ET ANIMATION 
GRAPHIQUE SUR 

AMSTRAD CPC 

G. Fouchard et J.-Y. Corre 

Réf. P19, 128 p., 110F 

Un informaticien et un peintre se sont 
associés pour donner envie à l'amateur 
de se lancer dans la création d'images. 


———————————————————-—+ 


BON DE COMMANDE 
A renvoyez avec votre règlement à STAMP DIFFUSION, 


17, rue Russeil 44000 NANTES 
Frais de port en sus: 25F 


Ci-joint mon règlement par chèque ou mandat. 


y 


Veuillez m'envoyer les ouvrages dont j'indique les titres ci-dessous. 


Réf. | Titres TQuantité | Prix 
+ = — a 4 =— À—— 
+ + L I 
2 sens. | 
A tee NE | 
- da ——— + 4 
és sel | 
RS TP | 
L _ 
min t 


RELIEF 


Fabien SPERANZA 


POSSIBILITES ET LIMITES 

DU PROGRAMMES 

— RELIEF permet de tracer des courbes 
en 3 dimensions, définies par une équa- 
tion du type : y=f(x,z) (où z est la 
profondeur). 

— Le tracé peut se faire : 

+ d'avant en arrière (intersection de la 
surface à représenter avec des plans // 
à l'écran) ; 

e de gauche à droite ou de droite à gau- 
che (intersection de la surface avec des 
plans L au plan de l'écran) ; 

° en quadrillage : superposition des 
deux types de dessins précédents. 

— Le tracé des courbes et l'élimination 
des points cachés sont assurés par une 
routine en langage machine qui teste la 
visibilité des points directement sur 
l'écran. 

Cette routine, quoique bonne dans l’en- 
semble, possède toutefois quelques 
défauts : il se produit parfois des aber- 
rations (en général petites) dans le tracé 
(petite portion de courbe en trop ou non 
tracée). 

En général, les cas où il peut y avoir des 
problèmes sont les suivants : 

° courbes trop serrées et présence de 
lignes verticales abruptes 

remède : prendre moins de points sur 
l'axe des z ou utiliser une fenêtre plus 
large ; 

‘e présence de points asymptotiques 
remède : pas de remède particulier, jouer 
sur les différents paramètres du tracé 
(voir exemple de courbe à asymptote 
dans l'image de présentation : 
y =-1/SQR(x*x +z*z)) ; 


° tronquage de la surface (les portions 
de courbe hors fenêtre ne sont pas 
tracées) 

remède : cadrer la courbe correctement 
(éventuellement en utilisant l'option ‘’cal- 
cul ay by AUTO” du menu) ou tracer 
avec beaucoup de points. 

Tous ces problèmes sont de faible 
ampleur et le résultat global est tout à fait 
convenable (voir les images de démons- 
tration et faire des essais) ; 

— Tracé en mode 2 pour avoir un maxi- 
mum de résolution ; 

— Pour le CPC 464 sélection automa- 
tique du lecteur de disquette si celui-ci 
est branché, vitesses d'écriture 
1000/2000 ou 3600 bauds, possibilité 
de sauvegarde par blocks de 2K ou en 
un seul block de l'image créée ; 

— Possibilité de définir sur l'écran 
jusqu'à 10 fenêtres (donc on peut avoir 
sur l'écran plusieurs courbes 
différentes) ; 

— Possibilité de compiler et décompiler 
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les images écran ce qui permet de gagner 
de la place sur la disquette (ou de réduire 
le temps de chargement) ; 

— Possibilité d'intégrer les courbes 
créées dans un programme personnel ; 
— Facilité d'introduction et de contrôle 
des paramètres du tracé ; 

— Pas de contrôle et traitement des 
erreurs (‘‘’overflow"" et ‘‘division by zero'” 
en particulier). 

N.B. : si un ‘’BREAK'"" est produit (par le 
système ou l'utilisateur) il suffit de pres- 
ser la petite touche ENTER du pavé 
numérique pour retourner au menu (les 
dessins mémorisés sont conservés). 
Toutefois, si on utilise cette méthode 
pour repartir un peu trop souvent, le 
système finira par afficher ‘’memory 
full’. Le plus simple dans ce cas est 
d'entrer une ligne du type 35’ pour effa- 
cer les adresses de retour des appels par 
‘*GOSUB””. On peut ensuite repartir avec 
la touche ENTER du pavé numérique. 


CONCLUSION 

Ce programme est destiné : 

— à permettre la réalisation de pages 
écran de présentation ; 

— à l'étude de fonctions du type 
y =f(x,2). 


MODE D'EMPLOI 
Principe du menu : l'accès aux différen- 
tes options se fait par la pression d’une 
ou deux touches qui correspondent à des 
lettres de commandes. 
Ces lettres de commande apparaissent 
en blanc sur fond noir. 
Il est possible, si on le désire, de faire 
apparaître ces lettres de commande en 
vidéo inverse en modifiant la ligne 30 : 
remplacer 30 1$='''"" par 30 I$ 
= CHR$(24). 
Pour annuler une option sélectionnée par 
erreur presser la barre d'espace ou pres- 
ser ENTER sans rien entrer pour une 
réponse à un “INPUT”. 
e Première ligne 

* Pour créer une fenêtre presser une 
touche de O à 9 (10 fenêtres max.). 
Utiliser ensuite : 
— les flèches du curseur pour déplacer 
la fenêtre que l'on veut créer (avec 
SHIFT — déplacement rapide, sans 
SHIFT — déplacement fin) ; 
— les touches 8, 4, 2, et 6 du pavé 
numérique pour modifier les dimensions 
de la fenêtre (avec ou sans SHIFT) ; 
— valider par ENTER ; les fenêtres déjà 
définies sont représentées et le pro- 
gramme refuse le recouvrement des 
fenêtres (ESPACE toujours pour annuler 
l'option). 

* Les fenêtres déjà définies apparais- 


sent en vidéo inverse sur la page menu. 
Presser une touche de chiffre en vidéo 
inverse a pour effet de supprimer la fené- 
tre (après une demande de confirmation). 
* La flèche bleue sous les chiffres per- 
met de sélectionner la fenêtre dans 
laquelle on veut dessiner (pour déplacer 
cette flèche utiliser — et — du curseur). 
* Le nombre d'octets libres du buffer 
dessin est affiché à côté des chiffres 
(16000 à l'origine). 
e Entrée des bornes 
Presser ‘‘a’’ puis ‘’x’’ pour introduire par 
exemple la borne ax (si on introduit des 
valeurs erronées : ax > bx par exemple le 
programme corrigera de lui-même au 
moment du tracé). 
e Nombre de points 
Presser ‘N°’ puis ‘’x'’ ou ‘‘’z'’ ; AA signi- 
fie avant/arrière et GD gauche/droite 
— exemple : la sélection de ‘N°’ puis 
‘x’ permet d'entrer deux valeurs : le 
nombre de points sur l'axe des x pour un 
tracé d'avant en arrière (Valeur à côté de 
‘‘’AA'') et pour un tracé gauche/droite 
(valeur à côté de ‘’GD’') ; 
— le nombre de points maximum que 
l'on peut utiliser sur l'axe des x est indi- 
qué en bleu à côté de la lettre ‘’x’’. Cette 
valeur se modifie en fonction des entrées 
(dépend de ax,bx, et de la perspective) ; 
— pour l'axe z la valeur max. est fixée 
à 999. 
e Perspective 
Presser P, puis utiliser les flèches du cur- 
seur (avec ou sans SHIFT) ; le cube à 
gauche indique la perspective. 
e Entrer fonction 
Presser ‘‘E’”, entrer les initialisations pour 
le tracé de la courbe (par exemple RAD), 
puis presser ‘’ENTER'’”’ du pavé numéri- 
que et entrer la fonction. Une nouvelle 
pression sur ENTER permet le retour au 
menu. 
e Calcul ay et by AUTO 
Presser C, introduire un nombre de 
points. La machine détermine alors les 
valeurs extrêmes de y ce qui permet de 
cadrer la courbe. Possibilité de voir les 
calculs se dérouler ou non (ce qui est un 
peu plus rapide). 
N.B. : 
- Bien sûr, avec une courbe à asymptote, 
cette option donne de mauvais résultats 
et ne doit pas être utilisée. 
- Elargir légèrement l'intervalle obtenu 
avec cette option. Par exemple, si on 
obtient ax = - 1.58 et bx = 1.58, ilest 
préférable d'utiliser - 2 pour ax et 2 pour 
bx sinon quelques points pourraient ne 
pas être tracés. 
e Voir 
Presser ‘‘v'’ et ‘‘l’’ ou ‘’v’’ et ‘’d”’. 
Rem. : Si une fenêtre est définie mais 
non remplie, on peut tout de même voir 
apparaître quelque chose avec l'option 
v + d: ce sont les restes de fenêtres pré- 
cédentes que l'on a effacées. Ces res- 
tes disparaîtront dès que l'on va dessi- 
ner dans la fenêtre. 
e Couleurs 
Presser F ou S, puis utiliser les flèches 
du curseur. 
e Mode de tracé 
Presser ‘’M'' puis ‘’A” ou ‘’M'' puis 


‘M : la pointe du chevron indique le 
mode. 

*_ mode Auto : le dessin se fait d'avant 
en arrière, de gauche à droite, puis les 
deux dessins sont superposés et le résul- 
tat (donc un quadrillage) est rangé dans 
le buffer dessin. 

* mode Manuel : le programme trace 
la courbe d'avant en arrière (ou de gau- 
che à droite), puis s'arrête et une alarme 
retentit. 

Vous pouvez alors : 

— presser ‘’M'' deux fois pour retour- 
ner au menu. 

— presser ‘’S'’ deux fois pour sauvegar- 
der dans le buffer la courbe tracée. 

— presser ‘‘’V’’ deux fois : la courbe qui 
se trouve dans le buffer est superposée 
à celle qui se trouve sur l'écran (donc 
vous obtenez en principe un quadrillage), 
mais le contenu du buffer n'est pas 
modifié (si le résultat vous plaît, vous 
pouvez sauvegarder par ‘'S''). 

— presser ‘‘C’’ deux fois : permet de 
continuer (c'est-à-dire de tracer de gau- 
che à droite si l’on vient de tracer d'avant 
en arrière où le contraire). 

utilité du mode manuel : 

— permet de tracer une courbe sans 
quadrillage (ce qui parfois est préférable). 
— permet de ne pas avoir à retracer la 
courbe dans les deux sens si le résultat 
du quadrillage n'est pas bon (on ne 
retrace alors que dans un seul sens en 
modifiant le nombre de points utilisés, la 
première partie de la courbe étant en 
mémoire). 

L'utilité de ce mode apparaîtra plus clai- 
rement lors de l'utilisation. 

— une pression sur les touches > et < 
permet de déterminer si le tracé doit être 
fait d’abord d'avant en arrière ou d'abord 
de gauche à droite (concerne unique- 
ment le mode manuel). 

e Dessiner 

Presser ‘‘D’’ et ne pas oublier de placer 
la flèche sous la fenêtre dans laquelle on 
veut dessiner (si on se trompe, faire 
“’ESC'’ puis repartir avec ‘‘ENTER"" du 
pavé numérique). 


dans une fenêtre qui n’a pas été définie. 
e Lecture/sauvegarde 

Presser ‘’L'”. 

Plusieurs types de fichiers peuvent être 
créés : 

* fichiers écran non compilés : NOM. 

3D- 
— pour le disque, ce sont des images 
d'écran normales : 16384 octets (on 
peut les charger par load ‘’NOM.3D-"") 
— pour la cassette, ce sont toujours des 
images de 16384 octets, mais ces ima- 
ges peuvent être écrites en un seul 
block ; dans ce cas, il faut une routine 
spéciale pour les relire. 

* fichiers écran compilés du type : 

NOM.3D0 image de 16000 octets (cas 
très rare) 
ou NOM.3D1 compilée par colonnes 
ou NOM.3D2 compilée par lignes 
Il faut une routine spéciale pour afficher 
ces images. 
Sur cassette, vous avez la possibilité 
d'enregistrer le fichier en un seul block. 
Sur cassette également, les fichiers 
écran (compilés ou non) peuvent être 
écrits à 1000, 2000 ou 3600 bauds 

* fichiers fenêtres NOM.3DF + 
NOM.BIN 
Les fenêtres sont ici sauvegardées ; cette 
option est à utiliser lorsqu'on désire sau- 
vegarder une page écran non encore 
achevée pour la continuer plus tard. Pas 
de compilation possible pour ce type de 
fichier ; pour la cassette vitesse fixée à 
2000 bauds et écriture par blocks de 2K. 
Pour le 464, la sauvegarde se fait auto- 
matiquement sur disquette si le lecteur 
est branché (si l’on désire tout de même 
sauvegarder un fichier sur cassette, 
faire : ‘’ESC'’ pour sortir du programme, 
POKE 21339,0 puis ITAPE.OUT). 


UTILISATION DES IMAGES ECRAN 
REALISEES PAR RELIEF 
DANS UN PROGRAMME PERSONNEL 


— Les images écran non compilées (du 
type NOM.3D-) peuvent être chargées 
simplement à l'écran par LOAD 
‘’NOM.3D-'’ (sauf sur cassette si cette 


image est enregistrée en un seul block). 
— Pour les images compilées, il faut 
réserver dans le programme utilisateur : 


* 250 octets implantés à l'adresse 
ADR pour y loger le fichier LECDEC.BIN 

* 4096 octets pour le buffer réservés 
au lecteur de disquette (ou cassette) 
implantés à l'adresse BUFL 


* un nombre d'octets égal ou supé- 
rieur à la taille du fichier compilé que l’on 
veut relire (max : 16000 octets) ; 
adresse d'implantation : BUFD 
Une fois la routine LECDEC placée à 
l'adresse ADR : 

— faire CALL ADR,BUFD,BUFL,CNS$ 
pour charger le fichier compilé (N$ doit 
contenir le nom du fichier (ex. 
NOM.3D1)). 

— faire CALL ADR +87,49152,BUFD, 
80,200,c pour afficher le dessin à l'écran 
; c représente le type de fichier : O, 1 ou 
2 


— pour les fichiers sur cassette non 
compilés mais enregistrés en un seul 
block, il suffit de faire : CALL ADR,SON$ 
pour charger l'image à l'écran (pas d’es- 
pace à réserver pour le buffer lecteur ou 
le buffer dessin). 

Le programme LECDEC.GEN permet de 
générer le fichier LECDEC.BIN (de 250 
octets) qui doit être lu par le programme 
utilisateur avant de pouvoir relire et 
décompiler des images ; il faut donc faire 
dans le programme utilisateur 
LOAD'LECDEC.BIN"",ADR. 


MISE EN OEUVRE 
DU PROGRAMME RELIEF 


— Taper et sauvegarder le programme 
BASIC RELIEF. 

— Taper ROUT.GEN, faire RUN : le pro- 
gramme ROUT.BIN est alors généré et 
sauvegardé. 


REM. :Les programmes BASIC 
ROUT.GEN et LECDEC.GEN ont été réa- 
lisés grâce au programme CREEDADA 
d'André Cheniere (CPC n° 9, p. 68). 


:GOTO 1160 


N.B. : il n'est pas possible de dessiner 
1 LOMME HODEDEOMEEMME M E DENON EEE M DE DEN EM NH 6 6 
= 
RELIEF par Fabien SFERANZA 
4 
3 (Juillet 1986) 
6 ‘ 
TOOUOHHEOMDEHE DE DE DEDE ED DE DE DE HE DE MED DE DEEE DE HE ED DÉDEDE EDEN 


10 OFENQUT'"'o": MEMORY 21135: CLOSEOUT : LOAD 
Mirout.bin'":DEFINT g-o,s:CALL RETAE 

20 anx=49:anyr=TO:axr-6, 28718531:bxe-ax:a 
ze-9,4247779bibz=-az:ay=-2iby=2sfdriisst 
#Qraa=-limt=iihe6f9:inxl=40rnx2r1$:nz1i40 
snz2e90: ple2rS2TIREY 159 ,CHRK# (13) +'goto 

DO'+CHRE (17) 

FO ist" 

40 DIM c#f(26) 


JO GOSUE 110 

40 LOCATE 1,1:kH#=LOWERSCINEEY#) 3 IF KH#z"" 
THEN 60 ELSE IF k$="e"THEN 1780 

70 IF KF+"/"AND KHFS'":I "THEN FRINT CHRE (7) 


80 1=INSTR(CmME,E#)2: IF i THEN FRINT CHK£( 
7):0N i GOSUB 690,690,1040,470,1720,1640 
:840,840,950,1800,2000,970,970,1600,1620 
90 GOTO 60 

100 GOTO 90 

110 pPOFECHRE (15) +CHRE (CO) 3 pPLF=CHRE (15) +CH 
RE C1): pe#=CHRE (15) +CHRE (2) s pifeCHRE (15) + 

CHRE C5) scm#="abnpcvfsmlid,,. "+CHRE (242) +CH 

R& (2435): FAFER#1,2:FEN#1,1:FAFER © 

120 MODE 1:INK 0,0: RORDER Os INK 1,263 INK 
B'LASINE 3,19: FRINT#I,CHRE (CD): FRINT pif 
"FENETRES"SFC (19) "octets libres'":FRINT 
130 FRINT pifif" ax"i#fpi3#f"e"SPC(17)";"pl 

fi$f'"E"i#fpe?#"NTRER FONCTION" 

140 PRINT pliFif" bx"ifpif"=" 

150 FRINT pi#if" az"i#$pz#f"e"SFi (17) "ep 

#i$f"C'"i#pz2#F'"ALCUL ay by AUTO" 

160 FRINT pifit" bz"i#pif$"e" 
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170 FRINT pifif$" ay'"i#pz#"="SGPC(17)"%"pli 
if"V'i#fpr#"OIKR " 

180 FRINT pitit" by"i#pi#f"="SFC(19)plfif 
"L'ifpzf'imites fenetres" 

190 PRINT TAR(24)pitiF"D'ifpif'essins" 
200 FRINT TAB(S3)piltif"N'"ifp2#f"OMRRE DE F 
OINTS" 

210 FRINT TAB(22)p5#";"p2#"COULEURS "pif 
1ÉCHREF(242)i#$" MiECHRE(LAT) IF 

220 FRINT SFC(S)plfif"x"i#pif"( MAX ) 
“pifif"z"i$SFC(é)plti#CHR#(70)1#pi#f"ond" 
230 FRINT" AA"SFC(20)pli#if"S"ifpsf"tylo" 
240 FRINT" GD" 

250 FRINT TAB(22)p3f"; 

DE TRACE" 

260 FRINT TAB(S)pitiét"F"i#fpz#F'ERSFECTIVE 
"SFC(7)plitit"Aa"ifpisé"uto "pifif"M"iépis" 
anuel:AA GD'"':FKRINT 

270 FRINT TAB(9)pïf'angle (DEG) 
pitit"L'"iétpe#"iRE/SAUVER":FRINT 
280 PRINT TAB(9)pit'"u"SPC(é)plifi#fCHRE (24 
2)it" "A SCHRE (245) 1 SSPC (6) PIE PIED 
“iftp2#t'"ESSINER"p3E" ts PRINT 

290 FRINT TAB(9)p£s#"y"SFC(é)p1ififtCHR# (24 
O)1it" "iFCHRE (241) iESFC(4) p2F"ANNULER op 
tion — +" 

#00 FRINT TAB(23) "barre d'°'" 
1# 

310 LOCATE L,3:FRINT CHRE(1S0) STRING (18 
CHR (154) )CHR£ (156) CHR# (150) STRING# (18, 
CHRE (154))CHRE (156) 

“20 FOR i=4 TO 25:LOCATE 1,i:FRINT CHRE( 
149) :LOCATE 20, Ds FRINT CHR# (149) CHRK# (149 
à: LOCATE 40,1: FRINT CHR£& (149) ::NEXT 

330 LOCATE 1,2S:FRINT CHR#£(147) STRINGE (1 
8, CHR& (154) ) CHR (1S F)CHRE (147) STRINGE (168 

 CHRE (154) ) CHRÉ (15 3)5 

340 LOCATE 1,10: PRINT CHR£ (151) STRINGE (1 
8, CHR$ (154) )CHRE (157) 

550 LOCATE 1,16:FRINT CHR# (151) STRINGE (1 
8, CHR (154) ) CHRE (157) 

260 ORIGIN 0,0,0,639,:99,0:FLOT 14,14,2: 
DRAUR 98,0:DRAUWR 0,98: DRAWR-98,0:DKAWR 0Q 
, 798 
570 FEN 1:GOSUE 620:GO0SUER 15350 
280 GOSUR 1150 
290 RESTORE 2580:FOR i=0 TO 26: READ cH(i 
)INEXT:FOR izO TO 1:WINDOWKH1,29,:3:9,13+1, 


"pifiF'M'"ifp2#f"ODE 


"pif" # LL 


pSFis$"ESFACE" 


12+1:CLSHi:IF i THEN FRINT#I," "c#(st);E 
LSE FRINT#1," "c#t(fd): 

400 NEXT 

410 FEN 2:LOCATE 27,17:1F mt THEN FRINT" 


{"ELSE FRINT'"':" 

420 FEN 1:LOCATE 237,17:IF aa THEN FRINT 

1#F"<"iSELSE FRINT if"2"i# 

4:50 GOSUR 1050 

440 WINDOW#1,5,7,14,14: FRINTHI,CHRE (12) M 
ID#(STRF (nx1),2): :WINDOW# 1 , 16, 18, 14,14:F 

KINT#1, CHR£ (12) MIDS (STRE(nz1), 3) « : WINDOW 

une 13,1S:FRINT#I1, CHR& (12) MIDS (S TRE (n 
KX2) ,2)::WINDOW#1,16,18,15,15:FRINT#1,CHR 

# (12) MIDE (STRE (nz2) ,2 2); 

450 FEN Z:LOCATE 10++f,7 

460 RETURN 

470 K=anx 


:FRINT CHRE (240) 


:y=any:FEN 1:GOSUH 620:FAFER %1: 
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EVERY 20 GOSUE 480 
480 KF=INFEVES:IF KH$SSCHRE (15) THEN FRINT C 
HR£ (7) : FAFER O:i=REMAIN(O) : RETURI ELSE I 
F K#=" "THEN FRINT CHR#(7) :anxzxsany=y:6 
OSUB 620: 1:=REMAIN(O) : RETURN 
490 WHILE NOT INKHEY(1):DI:paszl:1iF INEEY 
(1) THEN pas=10 
SOO anx=anx+pas:IF anx:90 THEN anx=90 
910 GOSUR 6IO:FRINT pi£STR£(anx): WEND:ET 
920 WHILE NOT INKHEY(8):Dls:pas=i:1iF INFEY 
(8) THEN pas=10 
D30 anx=anx-past:IF anxi-90 THEN anxz-90 
940 GOSUR 6320: FRINT pl#STR£(anx):WEND:EI 
990 WHILE NOT INKHEY(O):DIs:pas=l:IF INHEY 
(O) THEN pas=i0 
360 any=any+pas:IF any:90 THEN any=90 
970 GOSUER 630: FRINT p£ÉSTRE (any) : : WEND:E 
I 
380 WHILE NOT INKEY(2):DI:pas=i:1F INFEY 
(2) THEN pas=10 
990 any=any-pas:1iF anyi-90 THEN anyz-90 
600 GOSUER 6820: FRINT p2$fSTR#$ (any): WEND:ET 
610 GOTO 480 
620 DEG:FAFER 2Z:ORIGIN 16,16,16,110,110, 
lé: pl$f=CHRE (I1) +CHR£ (11) +CHR£& (21) +" "+ 
CHRE CS 1) +CHRE (11) +CHRE (21) : p2H=CHRE (31) + 
CHRE (11) +CHRE C2) +" M+HCHRE C31) +CHRE (11 
) +CHRE (235) : GOSUB 650: FRINT pifSTR£(anx): 
GOSUR GISO: FRINT p2Z$STR#(any):FAFER O:RET 
URN 
620 CLG:FLOT 32,32,1: DRAWR 30,0: DRKAWK © 
20: DRAUR-EFO,0: DRAWR O0,-30: thx=Z3OxSIN (an 
):thy=30XxSIN (any) 
640 IF anxiO THEN 660 
68530 IF any:*O THEN MOVE 67,52: DRAW 62+thx 
s22+thy:DRAUR 0,30:xp=XF0S: yp=YFOS:DRAW 
62,62:MO0VE xp,yp!:DRAWR-50,0:DRAW 352,62:6 
OTO 670 ELSE MOVE 22,32: DRAW ur 
NV: DRAUWR 350,0:xp=XFO0S:vyp=YFOS: DRAW 62,7 
: MOVE xp,yp:DRAWR 0,370: DRAW 62,6%: GOT0 ë 
70 
660 IF any:0 THEN MOVE 52,32: DRAW 32+th 
X,22+thy:DRAUR 0,30:#p=XF06S: yp=YFOS:DRAW 
322,62:MOVE xp,yp:DRAWR 50,0: DRAW 62,67 
ELSE MOVE 62,252: DRAW 62+thx,32+thy:DRAUR 
—30,0:«p=XFO0S:yp=YFOS:DRANW 52,32: MOVE xp 
:YP:DRAUWR 0,20: DRAW 32,62 
670 RETURN 
680 FAFER O:FOR i=0 TO 1:LOCATE 16,21+2% 
LiFRINT i£" "ig" "if" "i#seNEXT:FOR ii T 
QO ZO:NEXT:LOCATE 16,21:PRINT iFCHR#(242) 
1 FCHRE (32) 1$CHR#E (243) : LOCATE 16,23: FRINT 
CHR# (240) 1 FCHRE (SE) à FCHRE (241) i Hs: PAFER 
2: RETURN 
690 FEN l:c$f=k#: | bxazbzayby":a#t(0)= 
Mxtraf(1)="z"saf$(2)="y"teveSs PRINT ifslF 
H#="a"THEN y=4 
700 k$=LONERS (INKEV#) : 1F KES SUUTHEN IF EH 
=" "THEN FRINT i$CHR$(7): RETURN ELSE i= 
INSTR(a#,C#+H#):IF i THEN i=(i+1) \2:FRIN 
T i#FCHR# (7): WINDOW#1,5,19,23+1,3+i::CLS#1 
#INPUT#1,"",H#:CLS#1: ON i GOSUR 720,740, 
760,780,800,820:FRINT CHR#(7) : RETURN 
710 FOR i=0 TO Z:LOCATE 3,y+2%xis:FRINT" 
:NEXT:FOR i=i TO SO:NEXT:FOR iso TO Z:LO 


CATE Z,y+2#i:PRINT a$(i):NEXT:FOR izi TO 
S0:NEXT:GOTO 70€. 

720 IF kKESD""THEN ax=VAL(k#) 

730 PRINT#1, ax: RETURN 

740 IF k#£>""THEN bx=VAL(k#) 

750 FRINT#1,bx:RETURN 

760 IF KES ""THEN az=VAL(KS) 

770 FRINT#1, az: RETURN 

780 IF KF<>""THEN bz=VAL(k#) 

790 PRINT#1,bz:RETURN 

BOO IF kHF£>""THEN ay=VAL(KHE) 

810 PRINT#1,ay: RETURN 

B70 IF kHFE>""THEN by=VAL(HE) 

830 FRINT#1,by: RETURN 

840 i=st:y=14:1F k$="$"THEN y=iïti=fd 

850 WINDOW#1,20,29,y,y:GOSUB 890:FEN 1:E 

VERY 20 GOSUE 940 

60 KF=INREYE: IF KE=CHR# (13) THEN 900 ELS 

E IF k$=" "THEN 920 

870 IF k#=CHRE (245) THEN IF i426 THEN i=i 

+1:GOSUB 890 ELSE i=0:GOSUE 890 ELSE IF 
kE=CHRE (242) THEN IF i THEN i=i-1:GOSUE 8 

90 ELSE i=26:GO0SUE 890 

980 GOTO 860 

890 CLS#1:PRINT#I,c+ (Ci) :: BORDER i: RETURN 

900 IF y=13 THEN fd=i ELSE stsi 

910 PRINT CHR (7) : BORDER O:CLS#1: FRINT#1 
CE Gi) 3 si =REMAIN(O) : RETURN 

920 i=st:I1F y=13 THEN i=fd 

920 GOTO 910 

940 LOCATE 32,1Z2:FPRINT if" "ig" "is" "is 
:FOR j=1 TO SO0:NEXT:LOCATE 32,12:FRINT à 
FCHRE (242) à FCHRE (32) à CHR (245) i £: RETURN 
950 PEN Z:kF=INEEY#: IF k£=" "THEN FRINT 
CHR# (7): RETURN ELSE LOCATE 27,17:1F kt=" 
a"THEN FRINT'<"CHRE (7) :mt=1: RETURN ELSE 
IF k$="m'THEN FRINT'2"CHRE (7) :mt=0: RETUR 
N 

960 LOCATE 23,17:FRINT" ":LOCATE 28,17:F 
RINT" ":FOR i=1 TO SO:NEXT:FEN 1:LOCATE 
23,17: PRINT"'A":LOCATE 28,17: FRINT"M'": FOR 
ist TO SO:NEXT:GOTO 950 

970 FEN 1:LOCATE 37,17:1F aa THEN aa=0:F 
RINT if"s"ifELSE aa=-1:FRINT if"<"i# 

980 RETURN 


90 IF axsbx THEN xzax:ax=bx:bxexs: GOSUE 


1150 
1000 IF az:bz THEN xzaz:az=bz:bz=x: GOSUR 
1150 


1010 IF ayby THEN x=ay:ay=by:by=x:GOÜSUE 
1150 

1020 RETURN 

1050 GOSUR 990:nm=INT((bx-ax)#h/(bx-ax+( 

bz-az)*AES(SIN(anx)))):FEN Z:LOCATE 8,123 
PRINT MIDE(STRE (nm) ,2) : RETURN 

1040 GOSUR 1030:PEN 1 

1090 KS=INEEYS#: IF k#g=" "THEN FRINT CHRE( 

7):RETURN ELSE IF kH#="X"THEN FRINT CHR&( 

7)swx=Ssiznxi: GOTO 1070 ELSE IF K#="2"THE 

N i=nzisFRINT CHR#£(7):x=16: GOTO 1070 
1060 LOCATE 6,13:FRINT if" ":LOCATE 17,1 

ZIFRINT" ":FOR izi TO SO: NEXT:LOCATE 6,1 

S:FRINT'u":LOCATE 17,13: FRINT'"'z"i#:FOR i 

=i TO SO:NEXT:GOTO 1050 

© 1070 WINDOW#HI,x,x+2,14,14:CLS#1i: INFUT#I1, 


MUKE:IF K£=""THEN 1100 ELSE IF VAL(EH#IT 
HEN 1090 

1080 FRINT#H#1,CHR£ (7) CHR# (12) MIDS (STRE(i) 
52) 3; : RETURN 

1090 i=AEBS(VAL(H#))LIF «=5 THEN nxi=MIN( 
i,nmiisnxi ELSE nzl=MIN(i,999)si=nzi 
1100 GOSUB 1080:i=-(x=9) #nx2-(x=16) #nx2 
1110 WINDOW#1,4x,x+2,15,15:CLSh1: INFUT#1, 
MU SKSsIF KESSUUTHEN IF VAL(K#)THEN 11:50 
1120 GOTO 1080 

1150 i=ABS(VAL(EH#)):IF x=9 THEN nxZ=MIN( 
i,nm)ii=nx2e ELSE nz2=MIN(i,999):i=nz2 
1140 GOSUR 1080:RETURN 

1150 FOR iz1i TO 6: WINDOW#1,5,19,3+i,3+1: 
FAFER#1,2:CLS#1:ON i GOSUR 730,750,770,7 
90,810,870:NEXT:RETURN 

1160 i=VAL(H#H)SIF lIg(i)<+O THEN 1670 
1170 t=0O:y=l:z=1:GOSUR 1570 

1180 FRINT CHR#£(Z23)CHR#(1):ia=160:ib=479 
:ja=100: jb=300:GOSUR 1450 

1190 KF=INKEYS#S: IF kt=" "THEN FRINT CHR#( 
7)CHR£ (23) CHR (0) : GOTO 50 ELSE IF KH$=CHR 
#(13) THEN 1460 

1200 WHILE NOT INKHEY(1):pas=8:IF INKEY(I 
) THEN pas=2? 

1210 GOSUR 1450:IF ib+past640 THEN ia=ia 
+pas:ib=ib+pas 

1220 GOSUR 1450:WEND 

12370 WHILE NOT INÉEY(8):pas=-8:1F INKHET( 
8) THEN pas=-27® 

1240 GOSUR 1450:IF ia+tpas:-1l THEN iazia+ 
pas:ib=ib+pas 

1250 GOSUB 1450:WEND 

1260 WHILE NOT INKEY(O):pas=zs IF INKEY(O 
) THEN pas=16 

1270 GOSUR 1450:1IF jb+pas:400 THEN Jja#ja 
+pas!: jb=jb+pas 

1280 GOSUR 1450:WEND 

1290 WHILE NOT INKHEY(2):pas=-2:1F INKEY( 
2) THEN pas=-16 

1200 GOSUR 1450:IF jatpas+:-1 THEN jas=ja+ 
pas: jb=jb+pas 

1310 GOSUR 1450:WEND 

1320 WHILE NOT INHEY(4):pas=8:1F INKHEY(4 
) THEN pas=3? 

1530 GOSUR 1450:IF ib+past640 THEN ib=ib 
+pas 

1340 GOSUBR 1450:WEND 

1350 WHILE NOT INKHEY(Z#0):pas=-8:1F ÎINEEY 
(20) THEN pas=-232 

1760 GOSUR 1450:1IF ib+pas*ia THEN 1b=1b+ 
pas 

1:70 GOSUR 1450: WEND 

1:80 WHILE NOT INHEY(11):pas=2:IF INKHEY( 
11)THEN pas=ié 
1390 GOSUR 1450:1F 
pas 

1400 GOSUR 1450:WEND 

1410 WHILE NOT INHEY(14):pas=-2:1F INKHEY 
(14) THEN pas=-1é6 

1420 GOSUB 1450:1IF jatpas:-1 THEN ja=ja+ 
pas 

14570 GOSUR 1450: WEND 

1440 GOTO 1190 

1450 MOVE ia,ja:DRAUW ib,ja,1l:DRAW ib, jb: 


jatpas“Jb THEN ja ja+ 
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DRAW ia,jb:DRAW ia,ja:RETURN 

1460 d=O:FOR j=0 TO 9 

1470 IF l1g(j)=0 THEN 1520 

1480 x=iaty=ja: GOSUR 1S530:IF d THEN j=9: 

GOTO 1520 

1490 x=ia:y=jb:GOSUR 1530:IF d THEN j=9 

GOTO 1520 

1500 x=ib:y=ja: GOSUR 1530:1IF d THEN j=9 

GOT0 1520 

1510 x=ib:y=jb: GOSUR 1530:IF d THEN j= 
1920 NEXT:IF d THEN SOUND 1,25,25:GO0T0 1 
190 ELSE ox(i)=ia:oy(i)=jb:xti)=ib-iatyt( 

i)=jb-jaitlg(i)=-(x(i)\8+1)#(y(i)\2+i1):ad 

r(i)=plipl=pl-lg(i)s:FPRINT CHR$(7)CHRE (ZI 
)CHR# (0) : GOTO 50 

1550 deNOT(x>ox(j)+«(j)0R x<ox (j)0R y+0y 
CH)OR yéoy(ji)-y(ji))s: RETURN 

1540 NEXT:IF d THEN SOUND 1,25,2$:GOTO 1 
190 ELSE ox(i)=iaisoy(i)=jib:x(i)=ib-ia:y( 

1)=jb-jatlg(i)=-(x (1) \8+1)#(y (1) \2+1)s:ad 

r(i)=plipl=pl-lg(i):FRINT CHR#(7) CHR# (ZE 
)CHR£ (O0) : GOTO 50 

19530 FEN 3:FOR i=Q TO 9:LOCATE 10+i,1:1F 
1g(i)isO THEN PRINT CHR# (24): USING'"#"si 
: PRINT CHR#(Z4)ELSE FRINT USING'"#"si 
1560 NEXT:LOCATE 21,1:FRINT 2385223-pl:RET 

URN 

1970 MODE Z:INK O,fd: BORDER fd: INK 1,st: 

FEN 1:TAG:FOR j=0 TO 9:IF 1g(j)=0 THEN 1 

9390 ELSE IF t THEN x=fif=jili=x(f)\8+ii:c 

o=y (f)\2+1: GOSUH 2560: f=x 

1580 IF y THEN MOVE ox(j),0y(j):DRAUWR x ( 
j),0,1:DRAUR 0,-y0(i): DRAWR-X (3j) ,0: DRAWR 

O,Y(j):MOVE ox(j) ,0y(j):1F z THEN PRINT 
J: 
1590 NEXT:TAGOFF : RETURN 

1600 FEN Z:1F f*0 THEN f=f-1:LOCATE 10++ 
> 2:PFRINT CHR#(Z40)" " 

1610 RETURN 

1620 FEN Z:1F f:9 THEN LOCATE 10+f,2:FRI 

NT" "CHR# (240) 5 f=f+1 

1650 RETURN 

1640 z=1:y=l:FEN 1:EH#=INEEYS#S IF K#=" "TH 

EN FRINT CHRK#(7):RETURN ELSE IF k#="Il'"TH 

EN t=0:G0T0 1660 ELSE IF k#="d'THEN ta=i: 

GOTO 1660 

1650 LOCATE 24,9:FRINT" ":LOCATE 24,10:F 

RINT'" ":FOR i=1i TO 50:NEXT:LOCATE 24,9:F 

RINT'L':LOCATE 24,10: FRINT'"'D'":FOR i=i TO 
90: NEXT:GOTO 1640 

1660 FRINT CHR#(7) : GOSUR 1570:CALL £&ER18 
:FRINT CHR#(7) : GOSUR 110: RETURN 

1670 CLS:FEN 1:FRINT'SUFFRESSION FENETRE 
"i'"CONFIRMEZ FAR O0" 

1680 K$F=LOWERS (INEEY#):IF EH$=""THEN 1680 
ELSE IF kH#f£%"Oo"THEN FRINT CHK#(7) : GOTO 
90 

1690 x=pl-adr (i)-ABS(1g(i)):1F x=0 THEN 
1710 ELSE CALL #57D6,adr (i)+AHS(lg(i)),a 

dr (i),nx:FOR j=0 TO 9:1IF adr(j) #adr (i)THE 

N adr(ji)=adr(j)-ABS(lg(i)) 

1700 NEXT 

1710 pl=pl-ABS(lg{(i)):l1g(i)=0:CLS:FRINT" 

FENETRE" i "SUFFRIMEE"CHRE# (7): FOR i=1i TO 2 

OO: NEXT:GOTO 50 
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1720 GOSUR 990:CLS:PEN 1 
1750 INFUT'NOMBRE DE FOINTS (10X10 par d 
efaut)'"snsIiF n=0 THEN n=10 
1740 PRINT: INPUT'AFFICHER ay ET by FENDA 
NT LE CALCUL'"'sk#: K#=LOWERS (CK#) 2 IF H#="tT 
HEN 1770 ELSE IF kH$="o"THEN GOSUB 110:FA 
FER Z:FEN 1:LOCATE S,8:FRINT SFC(15):LOC 
ATE S,9:FRINT SFC(I1S)ELSE IF k$='"n'"THEN 
CLS: FRINT'"'CALCUL EN COURS"'CHR#£(21)ELSE 1 
740 
17950 ay=1.7E+38:by=-1.7E+38: GOSUR 57999: 
FOR x=ax TO bx STEF (bx-ax) /n:FOR z=az TO 
bz STEF(bz-az)/n: GOSUR 60000:1IF yby TH 
EN by=y:LOCATE 6,9:FRINT USING", HH# en 
sby ELSE IF y<ay THEN ay=y:LOCATE 6,8:FKR 
INT USING'"'#, HRK" ME ay 
1760 NEXT:NEXT 
1770 FRINT CHR#(6)CHR£ (7) : GOSUR 110:RETU 
RN 
1780 KEY 1359,CHR#(13)+"goto 17970"+CHR$# (1 
2) :CLS:PFEN 1:FRINT'Entrez les initialisa 
tions s'il y en a (lignes 58000 a 58999 
)":FRINT'Fuis pressez ENTER du pave nume 
rique pour continuer "3:FKRINT:FRINTiILIS 
T 58000 
1790 KEY 139,CHR#(13)+"goto 50'"+CHR# (13) 
CLS: PRINT'"'Entrez la fonction sous la fo 
rme":PRINT'y=f(x,z) (lignes 60000 a 6099 
9)": FRINT'Fuis pressez ENTER du pave num 
erique pour continuer": FRINT:FRINTiILI 
ST 60000 
1800 CLS:FEN 1:1IF FEEK (21539) THEN k£z'x. 
ID?P":IDIR,@kK#i:ty=z 
1810 PRINT'ENTREZ LES ‘CODES CORRESFONDAN 
TS':FRINT'"'A L'OPFTION CHOISIE'":FRINT:FRIN 
T:INFUT'SAUVEGARDE: 0 ou LECTURE:1 "sisiF 
i THEN 1930 
1820 PRINT: INPUT'NOM du fichier "sn#in£$efR 
IGHT#(n$,8):IF INSTR(n£," ")OR INSTR(NF, 
M")OR n$F=""THEN 1820 ELSE n$f=n$t+".35D" 
1830 FRINT: INFUT'"Sauvegarde ECRAN:O ou F 
ENETRES:1 "se:IF e THEN 1860 ELSE FRINT: 
INFUT'"'Dessin NORMAL:O ou COMPILE:1 "sci 
F PEEF (213359) THEN 1850 
1840 FRINT:FRINT'"'Vitesse d'ecriture":1INF 
UT" 1000:25 2000:50 ou 3600:10 bauds'"zv: 
FRINTIFRINT'"Sauvegarde":FRINT" par BLOCK 
S DE Ek:2":FRINT" en UN SEUL BLOCKH:130": 
INFUT ty 
1850 FRINT:INFUT'"'ENCADRER les dessins NO 
N:O QUI:1 "sy: PRINT: FRINT'"'Verifiez vos r 
eponses":INPUT'"Confirmez par (0),(N) ou 
(Retour menu ";k#:kK#=LOWERS (HS) e IF kK$=" 
r'THEN GOSUB 110:RETURN ELSE IF kH#$£2"o"T 
HEN 1800 
1860 FRINT:FRINT'METTRE EN PLACE LE DISQ 
UE OÙ LA CASSETTE'":PFRINT'"'Fuis presser un 
e touche":CALL &EBEB18 
1870 z=0:t=i: GOSUR 1570:IF e THEN 1920 E 
LSE IF c THEN CALL %5405,49152,22525,80, 
200 ,16000:n#=n#$+CHR$ (FEEK (45401) +48) :co= 
FEEF (SSIFF) +2564FEEK (%5400)ELSE 1900 
1880 IF FÉEK (21339) THEN ty=2 
1890 CALL %52DC,v,@&nf,ty,22525,co:GOTO 1 
980 


1900 n$=zné$+'-'"'s CALL 8&S2DC,v,G@n#é,ty,49152 
16384 

1910 GOSUR 110:RETURN 

1920 SFEED WRITE 1:OFENOUT "I "+4+n#+"F"a FRI 

NTH#9,pl:FOR i=O TO 9G:FRINT#9,1g(i)3:adr (i 
)iox(i)soy(i)sx(i),y Ci): NEXT:CLOSEOUT: SA 

VE'I"M4+LEFT#(NS, INSTR (NE, ","))+"BIN",b,22 

525,pl-22523:G60T0 1910 

1930 FRINT:INFUT'"'ENTRER LE NOM DU FICHIE 

R ",n#: PRINT: INFUT'TYFE de fichier (-,0, 
1,2 où F) "3k#: ES=LOWERE(kK#) IF INSTR("- 

O12f",k#)=0 OR k$=""OR n$=""THEN 1950 EL 

SE n$=n$+". SD"+HÉ 

1940 FRINT:PRINT'"Chargement de "n#:FRINT 
:FRINT'"'Verifiez vos entrees":INFUT"Confi 

rmez par (0O),(N) où (Retour menu "s;sd#:d 

#=LOWERS (d#):1F d$="r"THEN GOSUR 110:RET 

URN ELSE IF d#$<>"o'"THEN 1800 

1950 MODE Z:INE O,fd:HORDER fd: INK 1,st: 
IF kH$="{f'"THEN 1990 

1960 CALL Z1176,@n#:1IF Hi >"-"THEN CALL 

213540,49152,22523,80,200,VAL(H#) 

1970 IF E#f<5s"-"THEN CALL 21340,4915£,225 

23,80,200,VAL(H#) 

1980 FOR i=1 TO 9:1g(i)=O0:NEXT:1g(0)=160 

O0:pl1=72852%: 0x (0) =0:0y (0) =398: x (0) =6IV: Y 
(0) 2398: adr (0) 222923: f=03:1i=80: co=200: 60 

SUB 2550:G0T0 1910 

1990 OFENIN'"!'"+n#: INPUT#H9,pl:FOR i=0 TO 

9: INFUTH#9,l1g{(i) ,adr(i),ox(i),oy(i),x(i), 

y (i):NEXT:CLOSEIN:LOAD'"!"+LEFTS (NE, INSTR 
(n#£,","))4+"BIN'":GOTO 1910 

2000 IF l1g(f)=0 THEN SOUND 1,25,25:RETUR 

N 

2010 GOSUR 990:nxi=MIN(nxi,nmm):nxZ=MIN(n 

Kk2,nm)ipxi=(bx-ax) /nxi:pxz=(bx-ax)/rxés:p 

zi=(bz-az)/nzl:pz2=(bz-az)/nzz:li=x ($) \8 

+ii:co=y(f) \2+1:POKE 8&56FS, (oy (f) \2) :FOKE 
25708, (oy (F)-y(F))\E 

2020 MODE 2:BORDER fdi' INK O,fd: INK 1,st: 

FEN 1:FAFER O:CLS 

2050 GOSUR 2120:GOSUB 579993 j=1:1F mt TH 
EN :GOSUR 2150:GOSUB 2550:CLS:GOSUR 2:00 
: GOSUEB 2570: GOSUR 2550:GOSUR 110:RETURN 
2040 d=O:IF aa THEN GOSUB 2150 ELSE GOSU 
EH 22:00 

2050 K$S=LOWERS (INKEY#) 

2060 IF kf=" "THEN d=0: BORDER fd 

2070 IF k#f="m"THEN IF d THEN BORDER fdi6 


OSUER 110:RETURN ELGSE BORDER st:dzi 
2080 IF kH#F="sS"THEN IF d THEN BORDER fd:d 


=: GOSUR 2550 ELSE HORDER st:d=1 

2090 IF k#='"V"THEN IF d THEN BORDER fd:d 
=: GOSUR 2570 ELSE BORDER st:d=i 

2100 IF k$="Cc'"'TMEN IF j THEN IF d THEN j 
æO0:aa=N0OT aa:CLS:EORDER fd:GOTO 2040 ELS 
E BORDER st:d=i 

2110 SOUND 7,100,9,12:SOUND 1,550,9,11:6G 
OTO 2050 

2120 DEGi:thx=SIN(anx)scuisx (F) / ((bx-ax) + 
(bz-az)*ARS(thx))scx£2=cnxik#thxs: IF thx#O T 
HEN cx3=-cxi#x(azkthx+ax)+0x (f)ELSE cxiz- 
cxix(bzx#thx+ax)+ox (f) 

2130 thy=SIlhi(any)iscyi=zy(f)/C(by-ay)+(bz- 
az) *ARS(thy)):cy2=cyl#thy:1iF thy>0 THEN 


cyS=-cyix(azkthy+ay)+oy(f)-y(F)ELSE cyÿ= 
-cyi#(bz#thy+ay)+oy (F)-y ($) 

2140 RETURN 

2150 FÜR z=az TO bz+pz1/2 STEF pzi 

2160 cx=ck2kz+enxdicyscy2#2+cy3iKkE=ax: GOSU 
& 60000: yp=y:t=0 

2170 IF yoby THEN t=1:G0T0 2190 ELSE IF 
yiay THEN t=-1:G0T0 2190 

2180 CALL &S571A,cH1#K+CX,CyiKy+cy 

2190 FOR x=ax+pxi TO bx+pxi/2 STEF pxi 

2200 GOSUE 60000 

2210 IF yoby THEN 2240 ELSE IF y<ay THEN 
2260 

2220 IF t=i THEN GOSUR Z2480:t=0 ELSE IF 
=-1 THEN GOSUR 2460:t=0 

2250 CALL %550C7,cxikx+cx,cylxy+cy:G0TO Z 
270 

2240 IF t=0 THEN GOSUR 2490:t=i ELSE IF 
t=-1 THEN t=i:IF y-yp#100000 THEN GOSUE 

2460:G60SUB 2490 

2250 GOTO 2270 

2260 IF t=0 THEN GOSUR %470:t=-1i ELSE IF 
t=i THEN t=-1:1F yp-y#100000 THEN GOSUE 
2480:GOSUR 2470 

2270 yp=y:NEXT 

2280 NEXT x 

2290 RETURN 

2500 IF thx:O THEN deb=bx:fin=axspas=-px 
3 ELSE deb=ax:fin=brkipas=px2 

2%10 FOR x=deb TO fin+pas/2 STEF pas 

20 zeazicx=cxil#x+ex3: GOSUB 60000: yp=y: 


2550 IF yoby THEN t=1:G0OT0 2550 ELSE IF 
y<ay THEN t=-1:G60T0 2350 

23540 CALL RS71A,CX2HEH+ON ,CyYÎKy+Cy2xz+CYyS 
2350 FOR z=az+pz2 TO bz+pz2/2 STEF pz2 
GOSUR 60000 

IF y:by THEN Z400 ELGE IF y£éay THEN 


2580 IF t=zi THEN GOSUH 2920:t=0 ELSE IF 
t=-1 THEN GOSUR 2500:t=0 

2390 CALL RSSC7,CHLkEIT+CX  CYSRZ+CYIKY+CYSE 
:GÜT0U 4430 

2400 IF t=0 THEN GUSUR 28#0:t=1 ELSE IF 
t=-1 THEN t=is1F y-yp#100000 THEN GOSUKH 

2900: GO0SUR 2530 

2410 GOTO 2430 

2420 IF t=QO THEN GOSUR ZS10:t=-1 ELSE IF 
t=i THEN t=-i:1F yp-y#100000 THEN GOSUE 
2920:G0SUR 2510 

2420 yp=y:NEXT x 

“4404 NEXT x 

2450 RETURN 

2460 CALL 8571A,cx1#(x+(ay-y)/(y-yp)#xpx) 
+cx,cyi#ay+cy: RETURN 

2470 CALL 8RS55C7,cx1#(x+(ay-y)/(y-yp) xp) 
+cx ,cyl#ay+cy: RETURN 

2480 CALL %5714,cx1#(4x+(by-y)/(y-yp)#px) 
+cx ,cyi#by+cy: RETURN 

2490 CALL &55C7,cx1%(4+(by-y)/ (y-yp)#px) 
+cx,cyi*xby+cy: RETURN 

2500 vzz+(ay-y)/(y-yp)kpzzs CALL KS71A,CXx 
SHV+ex ,cy2#v+cyi#ay+cyz: RETURN 

2910 vaz+(ay-y)/(y-yp)kpzz:CALL 895807 ,cx 
2av+cx,cy2#v+cyl#ay+cy3: RETURN 
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2920 vez+(by-y)/(y-yp)*xpzz:CALL 8&571A,cx 
2XV+cx,cy2#v+cy1xby+cy3: RETURN 

2930 vez+(by-y)/(y-yp)xpz2:CALL &S5C7,cx 
ZAV+cx,cy2xv+cy1ixby+cy3: RETURN 

2940 LOCATE 1,1:RETURN 

2990 POKE #57CA,0:PFOKE %57CD,0:CALL 8&57A 
B,adr(f) ,ox(f),0oy(f)\2,l1i,co: RETURN 

2900 FOKHE %57CA,2EER:FOKE &57CD,8ERB:CALL 
%S7AB,adr (f),o0ox(f),oy(f)\2,li,co: RETURN 
2970 FOKHE ®%579D,%77:CALL &577E,adr (f) ,0x 
(CF) ,oy(f)\2,1i,co:RETURN 

2580 DATA Noir ,Bleu,Hleu Vif,Rouge,Magen 
ta,Mauve,Rouge Vif,Fourpre,Mag Vif,Vert, 
Turqgoise,Bleu Ciel,Jaune,EBlanc,Hleu Fast 
Orange ,Rose,Mag PFast,Vert Vif,V Marin, T 
urg Vif,V Citron,Vert Fast,Turqg Fast,Jau 
ne Vif,J Pastel ,Blanc Bri 

07999 

38000 KAD 

997000 RETURN 

60000 VESOR (x #x+2%42) : yzCOS (V) -COS (Fxv) 
61000 RETURN 


AVAVAVAV 


1 MEMORY 211355 
10 A=85290:F=<857FAi:lL=100: WHILE Aî=F: FOR 
A=A TO A+15:READ C$:Kk=VAL (MR "4+CH) : S=S+K+ 
6959S36%(6+6532767):IF AS=F THEN FOKE A,E 
20 NEXT:READ D: T=VAL("&"+D#) 2 IF°T<+:S TH 
EN FRINT CHR$(7);"Erreur ligne";L:END EL 
SE L=L+5S:WEND 
30 SAVE'"rout.bin",b,21136,1:87 : 

100 DATA CD,85,HC,AF,35C,CD,6R,ERC,DD,ES5,F 
D,E1,FD,66,01,FD,O0ACE 

105 DATA 6E,00,46,23,5E,23,56,21,7B,96,E 
B,CD,77,RC,17,58,10E8 

110 DATA O8,EER,CD,83,EC,CD,7A,ERC,C9,FD,E 
DE1i,CD,8S,RC,CD,1C4F 

115 DATA 7A,HC,FD,56,01,FD,5E,00,21,00,4 
O,AF,ED,52,21,00,22A4 

120 DATA C0,28,07,21,FEH,57,3E,16,CD,A1,E 
C,C9,CD,65,EC,DD,2H14 

25 DATA 7E,08,FE,19,20,05,21,4D,01,18,0 
C,FE,232,20,05,21,Z2EDF 

130 DATA A7,00,18,03,21,5D,00,CD,68,HC,D 
D,ES,FD,E1,AF,:C,369E 

125 DATA CD,6B,ERC,FD,66,07,FD,6E,06,46,2 
3,9E,23,56,21,7B,5D46 * 

140 DATA 96,EB,CD,8C,BC,FD,7E,04,FE,02,2 
8,1C,FD,ES,E1,16,4678 

145 DATA 00,1E,02,CD,44,53,FD,66,03,FD,6 
E,02,FD,56,01,FD,4D20 

150 DATA SE,00,3E,16,CD,9E,BC,C9,FD,66,0 
F,FD,6E,02,FD,56,54E8 

155 DATA O01,FD,5E,00,CD,98,RC,CD,8F,BC,C 
9,21,54,53,CD,D4,5DH5 

160 DATA EC,3E,00,20,01,3C,32,5E,53,C9,8 
8,00,DD,66,09,DD,62776 

165 DATA 6E,08,FE,05,28,1E,DD,56,0B,DD,5 
6,0A,CH,S5C,CR,1D,699F 

170 DATA CD,11,HC,:8,04,28,06,18,08,CEB,S 
A,CE,1R,CR,3A,CE,6F7E 
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175 DATA 1E,CD,1D,BC,DD,46,02,DD,4E,04,D 
D,56,07,DD,5E,06,760E 

180 DATA DD,7E,00,87,20,10,C5,E5,06,00,E 
B,ED,BO,ER,E1,Ci,7F1S 

185 DATA CD,26,RC,10,F1,09,EB,FE,01,28,2 
6,D5,C5,7E,23,CB,87CC 

190 DATA 7F,20,06,06,00,ED,B0,18,0E,CE,E 
F,47,7E,23,4E,23,8D1D 

195 DATA 12,13,0D,20,FB,10,FS,C1,D1,EB,C 
D,26,BC,ER,10,DE,9571 

200 DATA C9,41,D5,C5,7E,23,87,28,0D,47,E 
B,14,77,13,CD,26,9C6B 

205 DATA EC,10,F8,EE,18,13,46,23,7E,23,4 
E,23,EB,77,F5,CD,ASE4 

210 DATA Z6,EBC,F1,0D,20,F7,EB,10,EF,C1,D 
1,13,10,D4,C9,00,AC17 

215 DATA 00,00,00,00,00,DD,66,09,DD,6E,0 
8,FE,05,28,21,DD,BODF 

220 DATA 56,0B,DD,5E,0A,CB,23C,CB,1D,CD,1 
1,8C,38,04,28,06,B678 

225 DATA 168,08,CB,24,CB,1R,CB,%A,CB,1B,C 
D,1D,HC,22,03,54,EC8D 

230 DATA DD,46,02,DD,4E,04,E5,C5,FD,21,F 
F,53,11,00,00,E5,C3Fi 

235 DATA C5,FD,26,00,00,7E,23,0D,28,08,R 
E,28,F9,FD,34,00,C9D7 

240 DATA 18,F3,C1,FD,7E,00,3C,CE,27,E9,2 
6,00,6F,38,01,69,D03C 

245 DATA 2C,19,EB,E1,CD,26,BC,10,D6,ED,5 
3,01,54,C1,Ë1,ES,D8FE . 

250 DATA C5,78,41,4F,11,00,00,E5,C5,FD,3 
6,00,00,7E,F5,CD,DFF9 

255 DATA 26,BC,F1,0D,28,08,BE,28,F5,FD,3 
4,00,18,EF,C1,CS,E7A2 

260 DATA FD,7E,00,2C,CB,39,28,01,0D,H9,C 
1,26,00,38,04,69,ECEB 

265 DATA 2C,18,06,6F,2C,CB,25,CB,14,19,E 
B,E1,23,10,C8,24,F246 

270 DATA 01,54,EB,AF,E5,ED,52,E1,28,02,E 
B,3C,ES,DD,56,01,FB14 

275 DATA DD,5E,00,87,ED,52,E1,DD,56,07,D 
D,5E,06,38,14,C1,024Ë 

280 DATA E1,E5,C5,06,00,ED,B0,C1,E1,CD,2 
6,BC,10,F3,4F,32,0C11 

285 DATA 01,54,09,30C,32,01,54,C1,FE,01,2 
8,63%,F1,ES,FS,E1,13E9 

290 DATA ES5,C5,FD,36,00,00,7E,23,0D,28,0 
8,BE,268,F9,FD,34,1AER4 

295 DATA 00,18,F3,C1,E1,E5,C5,FD,7E,00,5 
C,CB,27,89,38,0A,220F 

300 DATA EB,71,EB,13,06,00,ED,R0,18,29,3 
7,1F,12,13,C1,E1,290À 

305 DATA ES,CS,FD,2%6,01,01,7E,25,0D,28,1 
1,BE,20,05,FD,5%4,2EE4 

310 DATA 01,18,F4,12,FD,7E,01,1%,12,13,1 
8,E6,12,FD,7E,01,344% 

515 DATA 13,12,13,01.E1,0D,26,B0,10,46,È 
1,22,FF,93,C9,F1,3091 

320 DATA E5,F5,E1,78,41,4F,ES,C5,FD,%6,0 
0,00,7E,FS,CD,26,4597 

325 DATA EC,F1,0D,26,08,BE,28,F5,FD,34,0 
O,18,EF,C1,E1,ES,4E1R 

330 DATA C5,FD,7E,00,3C,CB,39,38,01,0D,B 
9,368,12,C1,05,79,54E3 

335 DATA EB,71,EB,13,7E,12,13,CD,26,HC,0 


D,20,F7,18,2E,FS,S8BEÈE 

340 DATA AF,12,F1,13,12,15,C1,CS,FD,36,0 

1,01,7E,FS,CD,:6,62F9 

345 DATA EC,F1,0D,28,11,HE,20,08,FD,34,0 

1,18,F0,12,FD,7E,6996 

250 DATA 01,13,12,17,18,E2, 

3,12,13,C1,E1,25,6ES4 

255 DATA 10, 94,E1,22,FF,535,C9,CD,Cé6,BE,D 

S,ES,DD,66, 01, DD, 783F 

360 DATA LE ,00,DD,56,0%,DD,5E, 02 

D,CO,BR,E1,CB,3C,8104 

365 DATA CB,1D,D1,C1,CE,28,CB,19,DD,71,0 

O,AF,ED,42,30,08,88D2 

270 DATA CE,D7,F5,7C,2F,67,7D,2F,6F,25,F 

1,ER,C1,R7,ED,42,923C 

375 DATA 30,0B,CE,CF,FS,7C,2F,67,7D,2F,6 

F,23,F1,87,ES,ED,9ADO 

280 DATA 52,230,05,CE,C7,EB,D1,ES,52,62,5 

7,E1,7C,E5,C8,22,A371 

285 DATA 65,57,44,4D,CE, 

9ES,AF,ED,42,2:8,ARSE 

290 DATA QC,D1,ES,CD,H1,56,CD,D6,56,CH,D 

9,18,0F,3A,62,57,R3A7 

295 DATA CE,47,28,05,CD,D6,56,18,03,CD,E 

1,56,74,67,57,K7,ERA7D 

400 DATA 28.18,CS,ES,DD,46,00,CD,F3,86,% 

Ë ,00,2,67,57,32,C100 

405 DATA 60,57,20,04,3C,32,60,57,E1,0C1,7 

9,h6,28,07,3E,01,C62F 

410 DATA 22,67,57,18,2C,34,60,57,87,26,0 

3,79,86,77,CE,58,CEFF 

415 DATA 28,1F,CH,48,20,04,3E,80,H9,20,0 

1,2B,C8B,01,18,08,D0352 

420 DATA SE, oi ,E9,204 01,23,C08H,09,79,A6,2 

8 ,05,3E,01,32:07, D466 

425 DATA 57,2A,65,57,2B,22,65,57,7/C,RS,E 

1,D1,C1,C8,C5,28,DC03 

420 DATA 56,2A,67,57,ED,4R,61,57,CEH,48,2 

,0A,%E,80,KH9,20,E2:09 

435 DATA 01,2H,CR,01,18.08,3E,01,H9,20,0 

1,23,CB,09,22,63,ESH6 

440 DATA 57,ED,43,61,57,09,24,6:,57,ED,4 

H,61,57,CB,50,28,ECD5S 

445 DATA 08,CD,26,HC,DD,35,00,18,06,CD,2 

9,BC,DD,34,00,22,F2A1 

450 DATA 63,57,C09,ES,3E,00,90,28,1F,58,4 

7 00,27: EC,79,A6, F9BE 

45S DATA 0, 04, 10, F7,18,12,7E,06,00,E1,E 

3,70,2B,04, 47, CD, FFO0 

460 DATA 26,EC,79,46,20,02,10,F7,E1,C9,D 

D,66,01,DD,6E,00,0668 

465 DATA DD,56,03,DD,SE,02,ES,D5,7H,E6,0 

7,3C,47,AF,37,1F,0D80 

470 DATA 10,FD,32,61,57,CB,3C,CE,1D,4F,4 

“,CS,CD,1D,HC,22,1487 

475 DATA 63,57,C1,CD,F3,56,2E,01,22,67,5 
7,3E,00,52,60,87,1A6E 

480 DATA D1,E1,28,04,CD,C0,BH,C9,2C,227,6 

0,57,CD,C0,BB,C9,2393 

485 DATA 00,00,00,00,00,00,00,00,DD,46,0 

1,D0D,4E,00,DD,66,2725 

490 DATA OZ,DD,6E,02,1E,00,73,25,08,78,E 

1,20,F9,C9,DD,56,2D72 

495 DATA 07 one 06 a 


12,FD,7E, O1, 1 


,DS,ES,C 


3C,CB,1D,19,C5,D 


500 DATA DD,5E,08,DD,46,00,DD,4E,02,E5,C 
5,1A,BR6,12,15,23,3088 
505 DATA OD,20,F8,C1,Et,CD,26,EC,10,EF,C 
9,DD,56,07,DD,5E,433E 
510 DATA 06,DD,66,05,DD,6E,04,CD,1D,EC,D 
D,56,09,DD,SE,08,49FD 
515 DATA DD,46,00,DD,4E,02,E5,C5,06,00,E 
B,ED,BO,EB,C1,E1,5312 
520 DATA CD,26,BC,10,F1,C9,DD,66,05,DD,6 
E,04,DD,56,03,DD,5835 
525 DATA SE,02,DD,46,01,DD,4E,00,4F,E5,E 
D,52,E1,38,0%,ED,62C0 
520 DATA BO,C9,09,EB,18,09,EB,1B,ED,E8,C 
9,00,00,00,00,00,68C5 
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PEER DEEE DH DE HÉ HE DÉ DE DÉ DE DE DE DE DEEE EE EE HE DE DEEE JE 
2 ‘ Ce programme genere le fichier 
LECDEC.BIN qui sert a relire et affi- 
cher les images compilees 


7 ’ 


UE LL LE LLLLLLLLLLLLLLLLELLSLL LIL L LS SELLES) 
70 MEMORY 19999 

80 A=44E20:F=84F19:LS=100:WHILE A£SF: FOR 

A=A TO A+1S5:READ Cf: K=VAL CMRM+CEH) : SES +K+ 
65SEI6Xx(S+K>32767):IF AS=F THEN FOKHE A,K 

90 NEXT:READ D#: TæVAL("S"4D#)s IF T£+S TH 
EN FRINT CHR#(7)3: "Erreur ligne":L:END EL 
SE LeL+5:WEND: SAVE'"'lecdec.bin",b,20000,2 
50 

100 DATA CD,65,RC,AF,SC,CD,6E,EHC,DD,ES,F 
D,E1,FD,66,01,FD,0ACE 

105 DATA 6E,00,46,23,5E,25,56,FD,66,05,F 
D,6E,02,ER,CD,77,117E 

110 DATA EC,17,38,0D,FD,66,05,FD,6E,04,C 
D,87,HC,CD,7A,HC,197C 

115 DATA C9,FD,ES,E1,CD,85,HRC,CD,7A,ERC,F 
D,56,01,FD,5E,00,23C6 

120 DATA 21,00,40,AF,ED,52,21,00,C0,:8,0 
6,FD,66,05,FD,6E,29F7 

125 DATA 04,3E,16,CD,A1,EC,C9,DD,66,09,D 
D,6E,08,FE,05,28,310C 

1:50 DATA 1E,DD,56,0B,DD,56,0A,CH,3C,CH,1 
D,CD,11,BC,58,04,3576GA 

135 DATA 28,06,168,068,CR,3A,CB,1R,CB,3A,C 
B,1H,CD,1D,BC,DD,3E11 

140 DATA 46,02,DD,4E,04,DD,56,07,DD,S6E,0 
6,DD,7E,00,87,20,4435 

145 DATA 10,C5,E5,06,00,EB,ED,RO,ER,E1,C 
1,CD,26,HC,10,F1,4DHA 

150 DATA C9,ER,FE,01,28,26,D5,CS,7E,23,C 
E,7F,20,06,06,00,5446C 

1355 DATA ED,ROQ,18,0E,CR,EF,47,7E,23,4E,2 
3,12,13,0D,20,FR,SASF 

160 DATA 10,F5,C1,D1,ER,CD,26,RC,EH,10,D 
E,C9,41,D5,05,7E,6488 

165 DATA Rd - D 
b,HC,10,F8,ER,18,6H2 

170 DATA RE 24e -sce. 77,F5,C 
D,26,EC,F1,0D,20,71D9 

175 DATA F7, EBR,10,EF,C1,D1,13,10,D4,C9,0 


0,00,00,00,00,00,780C 
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L'utilisation de 
mise à 


de sorte que 


l'ordinateur 
la portée de 
ment attrayante, concerne 


les logiciels d'applications graphiques auront 


VISION 


Michel et Jacques PEIGNEY 


s'est 
la famille. 
la création et 


rapidement 


l'avenir une position de p:us en plus privilégiée. 


Parmi les techniques informatiques de 
pointe, la C.F.A.O. (Conception-Fabri- 
cation Assistée par Ordinateur) utilise 
l'image comme principal support de 
communication entre l'homme et la ma- 
chine. C'est dans cette optique que 
nous avons développé notre logiciel 
"VISION" qui constitue une initiation 
aux principales techniques graphiques 
utilisées en C.A.O. Il permet, en parti- 
culier : 

—la description et modélisation d'un 
objet ; 

— la manipulation dans l'espace de cet 
objet ; 

— la familiarisation avec les techniques 
d'agrandissement (zoom) ; 

— le rendu réaliste de l'image projetée 
par élimination des faces cachées. 
L'ensemble des possibilités offertes fe- 
ra l'objet d'une description détaillée à la 
fois théorique, informatique et pratique. 
C'est l'objet de cet article. 


DESCRIPTION THEORIQUE 


L'objet que l'on veut représenter est en 
général tridimensionnel, alors que l'é- 
cran de l'ordinateur, qui constitue le 
support de l'image est, lui, bidimension- 
nel. L'outil mathématique principal sera 
donc celui qui permet le passage de 


Figure 1 : Repère cartésien 


democratisée et 
Un type d'application, 
la visualisation d'images, 


s'est 
particulière- 


dans 


Figure 3 : Projection géométrique 


l'espace 3D à l'espace 2D. Il s'agira 
d'une projection géométrique plane. 


REPERES DE DESCRIPTION 


L'objet est décrit en utilisant un repère 
cartésien OXYZ (figure 1) et les points 
caractéristiques de cet objet seront 
repérés à partir des coordonnées X, Y, 
Z de ces points. 

L'œil de l'observateur, lui, est défini 
dans un repère sphérique (R, 0, et 
l'utilisateur pourra modifier à conve- 
nance la position de cet œil (figure 2). 

Le type de projection géométrique 
adopté sera : 


Figure 2 : Repère sphérique 


— la projection perspective : le centre 
de projection est à distance finie du 
support de projection ; 

— la projection parallèle : le centre de 
projection est à l'infini. 

La différence entre ces deux types de 
projection pourra être observée aisé- 
ment à l'aide des exemples proposés. 


PROJECTION GEOMETRIQUE 


Le principe de la projection géométri- 
que est rappelé brièvement dans ce 
chapitre (figure 3). 

* Le repère général de description de 
l'objet a pour origine le point O. 

*Le repère de l'observateur (œil) a 
pour origine O' et l'axe ZO' de ce repère 
passe par ©. La distance entre l'œil O' 
et l'origine O estR. 

+ L'écran est un plan perpendiculaire à 
la droite OO". Il est situé à une distance 
D de l'œil. 

On peut relier par des formules simples 
les coordonnées écran (XE,ŸE) aux 
coordonnées (X,,Yo:Zo) d'un point de 
l'objet dans le repère de l'observateur. 


M bxX 
_Zo+R 


DxYo 
E= = 
Zo+R 


Y 


D'autre part, on passe du repère objet 
(OXYZ) au repère observateur (0'Xo 
YoZo) par des transformations sim- 
ples (translations, rotations...) de sorte 
qu'un point P de l'objet de coordonnées 
X,Y,Z se transforme dans le repère 
observateur en utilisant les relations 
suivantes : 


Xo=-X sin 0+ Y cosÿ 
Yo =-X cosb sing 

Y sin sin® + Z cosg 
Zo=-X cos Ÿcos P- 
Y sin PcosP-Z sing 


CENTRAGE INITIAL 


La position initiale de l'œil est fixée 
automatiquement de telle sorte que R = 
D >> z0 maxi. Dans ces conditions, 
l'image initiale est obtenue en utilisant 
une projection parallèle : 

XE = XoetYe="Yo 

Le centrage de l'image sur l'écran est 
alors calculé en utilisant la notion de 


BT XEc-28-XE+bg 
YEc = a9 * YE +bo 
avec 

V2- Vi 


AQ = ———— aa= 
W2-W1 


V4a-V3 
W4-W3 


V1xW2-V2xW1 
Dg= — 
W2-W1 


V3 x W4 — V4 x W3 
bg = — 
W4-W3 


"fenêtres" dont les limites sont W1, W2, 
W3, WA en coordonnées utilisateur et 
la notion de "Viewport" en coordonnées 
écran dont les limites sont V1, V2, V3, 
VA. 
Les formules de passage de (XE,YE) 
vers les coordonnées réelles sur écran 
(XEC:ŸEc) sont d'après [4]. 


MAINTIEN DU CENTRAGE 


Lorsque l'on modifie la distance de l'œil 
(R), la position de l'écran (D) ou lorsque 
l'on effectue un "zoom", il est néces- 
saire d'effectuer un recentrage de la 
nouvelle image sur le moniteur (figure 
4). Ceci est effectué simplement en ap- 
pliquant les formules (3) dans les- 
quelles on aura préalablement modifié 
la valeur des coefficients bg et bg par : 


1 b'a=kbg+Xco-kXc 
b'9=k bo + Yco-KYc1 


où 

k : proportion entre la dimension de la 
nouvelle image et de l'ancienne. 

Xco: Ÿco : coordonnées moniteur du 
centre de l'image à obtenir. 

Xc1: Yc1 : coordonnées moniteur du 
centre de la partie que l'on déplace. 


— Par ce procédé, lorsque R diminue, 
l'image grandit en augmentant les ef- 
fets de perspectives (formules 1 et 3), 
mais reste centrée sur le moniteur. 


Si l'on approche l'écran de projec- 


tion, D diminue et la taille de l'image di- 
minue elle aussi, sans toutefois, modi- 
fier les effets de perspectives (formu- 
les 1 et 3), mais en restant centrée. 

— Un zoom est traité comme un éloigne- 
ment brusque d'écran, excepté que 
seule une portion réduite de l'image est 
concernée (cette zone est sélection- 
née par l'utilisateur). 


Zoom 


gere 


XCo, YCo 


Figure 4 : Recentrage image 


Le détail de ces opérations sera abordé 
au chapitre “utilisation”. 


TRAITEMENT 
DES FACES CACHEES 


Les algorithmes permettant l'élimina- 
tion des faces cachées sont en général 
complexes et demandent une puissan- 
ce de calcul importante. La majorité 
d'entre eux seront donc inadaptables 
sur un CPC 464 ou tout autre ordinateur 
du type “familial”. 

Parmi les méthodes les plus simples, 
on peut citer celle qui consiste à tester 
la visibilité des faces d'un objet à partir 
de l'orientation des normales. Cette mé- 
thode nécessite cependant, de la part 
de l'utilisateur, une description rigoureu- 
se des facettes en respectant, en parti- 
culier, un sens de parcours. De plus, 
elle ne s'applique qu'à des objets 
convexes. 

Pour éviter ces inconvénients, on a pré- 
féré utiliser l'algorithme du "peintre". 
Cette méthode s'avère être très effica- 
ce, moyennant quelques précautions. 
Elle consiste à peindre les facettes de 
l'objet dans l'ordre d'éloignement de 
l'œil. 

I! faut, toutefois, que les facettes ne 
soient pas trop grandes et disposer par 
ailleurs d'une fonction permettant le 
remplissage couleur de surface ("fill 
area”). Cette fonction, absente sur le 
CPC 464, a été créée en utilisant les ex- 
tensions BASIC proposées par Rémy 
Valentin dans la revue CPC (ref. 1). 

Le principe de la méthode choisie est 


“alors (figure 5) : 


— Calcul de l'éloignement de point de 
référence de chacune des facettes (le 
centre). 

— Classement des facettes par ordre 
d'éloignement décroissant. 

— Tracé et remplissage couleur des fa- 
cettes en commençant par les plus éloi- 
gnées. 


Figure 5 : Faces cachées 


DESCRIPTION INFORMATIQUE 


Les règles d'implantation mémoire de 
cette partie sont les suivantes : 
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— instruction du programme principal : 
10 à 9999 ; 

— les sous-programmes : 

10000 à 17000 ; 

— la bibliothèque d'objets : 

19000 à 30000. 


+ Programme principal 

L'ensemble du programme a été abon- 
damment "commenté" de telle sorte que 
le suivi des principales étapes ne pose 
aucune difficulté. 

Un organigramme général du traitement 
est présenté à la suite. Il fait apparaître 
que l'effort principal a été porté sur la 
rapidité d'exécution. Ainsi, la partie du 
programme la plus coûteuse est celle 
qui met en jeu les formules de projec- 
tions. Celles-ci ne seront appliquées 
que siÿou@ ont été modifiés. En 
cas de changement de la distance de 
l'œil ou de la position d'écran, 
l'application des relations (1) est très 
rapide, moyennant un stockage des 
résultats intermédiaires Xo, Yo, Zo 
des points dans le repère observateur. 
C'est en utilisant le même 
raisonnement qu'on obtient un zoom 
très performant. 


-* Les sous-programmes 

Ils sont, eux aussi, bien commentés. 

On trouvera dans l'ordre d'implantation 

mémoire : 

10000 : définition du viewport 
(calcul des ag, bg, ag, bo) 

11000 : calcul des coordonnées écran 
Xec Yec 

11500 : correction pour recentrage de 
l'image 

12000 : calcul des paramètres de la 
transformation 


LES ABONNES 
DE CPC 
RECEVRONT 
DESORMAIS 


GRATUITEMENT 


LES NUMEROS 
HORS SERIE 


BON DE COMMANDE 
PAGE 
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Acquisition GEOMETRIE 


Description point par point 
Utilisation bibliothèque 


Projection COORDONNEES 


Transformation des coordonnées 


Recherche des MAXI 


Détermination fenêtre -> viewport 


Tracer des FACETTES 


Calcul des coordonnées réelles écran 
Tracer des facettes 


SELECTION 


Modif R 
Centrage 


Modif D 


Centrage Centrage 


Modif 6, ® 


Organigramme du traitement 


(sin 6, cos 6, sin ®, 


cos P etc.) 


13000 : transformation des B 
coordonnées dans le repère | 
observateur (Xo, Yo, Zo) B 

14000 : tracé d'une facette L 
sur moniteur | 

15000 : acquisition de la fenêtre O 
du zoom à l'aide du Joystick T 

16000 : classement des facettes H 
par ordre d'éloignement E 
décroissant Q 

U 

- Bibliothèque d'objets E 


L'utilisateur dispose d'une bibliothèque 
d'objets pré-définis qui montrent les 
possibilités du logiciel. La structure de 
cette bibliothèque est présentée sur la 
figure 6a : 


Figure 6a 


Choix fenêtre 


FACE CACH. 


Profondeur 
Classement 
Remplissage 


OBJET n° 1 


OBJET n° 2 


OBJET n° n 


XX145  RESTORE XX100 
READ NŒUD, NFAC 
FOR 1= 1 TO NŒUD 


coordonnées 


READ XYZ(1,i), XYZ(2,i), XYZ(3,i) 


next i 
FOR I= 1 TO NFAC 


facettes 


: READ ifac(1,i), ifac(2,i), ifac(3,i), ifac(4,i) 


next i 


Figure 6b 


Elle comprend : 

19000 — un SP d'accès permettant à l'u- 
tilisateur de sélectionner l'objet désiré. 
20000 — les SP de définition d'objet à 
raison de un par objet. Ainsi, on trou- 
vera : 

— 20000 — définition de la Pyramide ; 

— 21000 — définition du Cube ouvert ; 

— 22000 — définition de l'avion ; 

— 23000 — définition du moulin ; 

— 24000 — définition de l'icosaèdre. 


EXTENSION DE LA 
BIBLIOTHEQUE D'OBJETS 


L'utilisateur a la possibilité d'étendre la 
bibliothèque d'objets. Il lui suffit pour 
cela de : 


— compléter le SP d'accès ; 
— ajouter le SP de définition de l'objet. 


+ Compléter le SP d'accès 

— Modifier le nombre d'objets disponi- 
bles : 19100 nobjet = 

— Compléter la liste de définition des 
objets disponibles par un texte et un nu- 
méro de code objet. 

19120 Print "nom de l'objet et code" 

— Compléter l'instruction de branche- 
ment vers le SP de définition de l'objet 
19500 ON iobj GOSUB 20000,21000.... 


- Ajouter le SP 

de définition de l'objet 

La structure des sous-programmes de 
définition d'objets sont tous identiques; 
à savoir : 

— suite de DATA ; 

— instructions BASIC réalisant la lec- 
ture des DATA. Ainsi, si l'implantation 
mémoire du sous-programme est à l'a- 
dresse XXOOO, on trouvera : 

XX100 DATA 

nombre de nœuds, nombre de 
facettes 

DATA 

coordonnées X,Y,Z 

des nœuds 

DATA définition des facettes 


XX110 


XX120 


Viennent ensuite les instructions per- 
mettant la lecture des données conte- 
nues dans les DATA qui seront toujours 
sous la forme présentée dans la figure 
Gb. 


REMPLISSAGE COULEUR : 
IPAI 


Rémy Valentin a publié dans la revue 
CPC un article concernant la desciption 
de deux extensions BASIC pour AMS- 
TRAD : le CERCLE et le PAINT. Ces 
fonctions sont extrêmement utiles et 
malheureusement absentes du CPC 
464. 

"VISION" utilise l'option PAINT (IPAI) 
pour le coloriage des facettes nécessai- 
re lors de l'élimination des faces ca- 
chées. La syntaxe générale de cette 
fonction est rappelée brièvement ici : 


IPAI ,X,Y,COUL1,COUL2,CB/CR, 
TP,FQ1,FQ2, MA 


X,Y sont les coordonnées d'un point à 
l'intérieur de la zone à remplir. 


COUL1, COUL2 sont les couleurs de 
remplissage. 


CB, CR : couleur de bord ou de fond sui- 
vant TP 


TP : indicateur sur la façon de remplir 
= 0 peint les = CB et arrêt si CB 
= 1 peint les 4 CB et arrêt si = CB 


FQ1,FQ2 : indicateur sur le type de rem- 
plissage souhaité (hachures, pointil- 
lés…) 


MA : fixé à O 


C'est le point délicat du logiciel sur le- 
quel on doit encore apporter quelques 
améliorations. En effet, quelques diffi- 
cultés sont apparues lors de l'utilisa- 
tioin de la fonction IPAI qui ne semble 


pas toujours réagir de la bonne façon : 

* Lorsqu'une partie de la facette à colo- 
rier est déjà de la bonne couleur, IPAI 
ne la complète pas toujours en s'arrê- 
tant, par exemple, sur tout changement 
de couleur et non sur la couleur de 
bord | 


On a pallié ce problème en utilisant 
l'astuce qui consiste à peindre d'abord 
la facette en cours, de la couleur du 
fond. La conséquence immédiate est 
une perte d'efficacité puisque certai- 
nes facettes seront remplies deux fois. 

- Dans le cas du zoom, une grande par- 
tie de l'objet se trouve généralement 
hors écran. Lorsque le point de départ 
pour IPAI est en dehors des limites d'é- 
cran, la fonction ne réagit pas toujours 
très bien. 

On a contourné ce problème en ne pei- 
gnant pas les facettes dont le centre 
est hors des limites de l'écran. 

- Il reste enfin le problème lié au point 
de départ pour IPAI qui peut, dans le 
cas de facettes obtues, se situer légè- 
rement en dehors de la facette considé- 
rée (à 1 pixel près, mais ici, IPAI n'est 
pas en cause). Dans ce cas, IPAI rem- 
plit l'extérieur, ce qui est logique mais 
gênant ! 

La correction est en cours et sera inté- 
grée dans la prochaine version. En 
attendant, il faut appuyer sur la touche 
"del". Ceci se produit, tout particulière- 
ment, pour l'avion où selon certaines 
vues privilégiées (profil), l'aile ou la 
queue se réduit à un trait oblique. 

Il serait intéressant de soumettre ces 
quelques problèmes à R. Valentin pour 
qu'il puisse nous fournir un complément 
d'informations sur ces extensions et 
peut-être nous apporter quelques solu- 
tions plus directes. 

Il est certain, par contre, que ceux qui 
disposent d'une machine dont le BASIC 
intègre la fonction PAINT pourront l'utili- 
ser directement en remplaçant les ins- 
tructions 1670 et 1680. 


LIMITATIONS DU PROGRAMME 


Les tableaux réservés sont les sui- 
vants : 


XYZ (3,100) : 

Coordonnées réelles des nœuds de l'ob- 
jet. 

XYFA (3,100) : 

Coordonnées des nœuds après trans- 
formation dans le repère "observateur". 
IFAC (4,100): 

Description des facettes. 

XYEC (2,100) : 

Coordonnées écran des nœuds. 
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PROFA (100) : 

Profondeur des facettes. 

ORD®% (100): 

Ordre de classement des facettes. 


Les limites actuelles sont donc fixées à 
100 nœuds et 100 facettes. De plus, 
une facette comporte au maximum 4 
nœuds. 


UTILISATION 


La représentation ou modélisation des 
objets a été faite en utilisant la notion 
de ‘facettes”. Il s'agit donc d'un modèle 
de type surface plus riche que la clas- 
sique représentation "Fil de Fer”. Il per- 
met, entre autre, la description d'objets 
aux formes complexes. Un exemple 
complet est présenté en annexe, où 
l'on montre comment modéliser simple- 
ment un avion. 


DESCRIPTION DES OBJETS 


L'utilisateur a le choix entre plusieurs 
possibilités : 


«Définir son propre objet sous 
forme de facettes dont il précise les 
nœuds sommets et leurs coordonnées 
dans l'espace. Ainsi, il devra donner 
dans l'ordre : 

— le nombre de nœuds ; 

— pour chaque nœud, son numéro suivi 
des coordonnées dans l'espace X,Y,7 ; 

— le nombre de facettes ; 

— pour chaque facette, les nœuds la 
constituant (4 maxi). Lorsqu'il y a 
moins de 4 nœuds (triangle, droite), on 
complète par des zéros. 


«Utiliser les objets contenus 
dans la bibliothèque d'objets dispo- 
nibles. C'est la solution conseillée pour 
commencer. Le contenu de cette librai- 
rie a été décrit au paragraphe : biblio- 
thèque d'objets. 


«Compléter la bibliothèque  d'ob- 
jets en y déposant ses propres entités. 
La procédure détaillée a fait l'objet 
d'une description dans le paragraphe : 
Extension de la bibliothèque d'objets. 
On s'y reportera. 


UTILISATION DES FONCTIONS 


L'objet étant maintenant défini, l'utilisa- 
teur aie choix entre quatre fonctions : 

— manipuiation de l'objet ; 

— manipulation de l'écran de projec- 
tion ; 

—ZOOM ; 

— élimination des faces cachées. 
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Du point de vue pratique, la fonction 
sélectionnée sera toujours rappelée 
dans le coin supérieur gauche du moni- 
teur. De même, en bas de l'écran, une 
fenêtre indiquera les paramètres en 
cours dans cette fonction. 


- Manipulation d'objets : 

code d'accès "O" 

L'objet étant positionné dans l'espace 
X,Y,Z, l'utilisateur a la possibilité de 
changer la position de l'œil et donc, d'a- 
voir de l'objet une vision sous un angle 
différent. Il pourra : 

— modifier l'angle de colatitude PHI (fi- 
gure 7) à l'aide des touches du cur- 
seur : 

Touche " E : PHl augmente 

Touche” ! ": PHl diminue 

— modifier l'angle de longitude TETA (fi- 
gure 7) à l'aide des touches du cur- 
seur : 

Touche "—+" : TETA augmente 

Touche "<—" : TETA diminue 


X,Y,Z, l'utilisateur a la possibilité de 
changer la position de l'écran sur lequel 
il projette l'objet. Cela constitue, par 
exemple, un second moyen de contrô- 
ler la grandeur de l'objet. 

Pour cela, l'utilisateur disposera de : 


— Touche "A" : l'écran avance vers 
l'œil ; 

— Touche "R" : l'écran s'éloigne de 
l'œil ; . 

- Touche " Î- : translation verticale 
positive ; 

- Touche “| " : translation verticale 
négative ; 

— Touche +" translation 
horizontale positive ; 

— Touche "—" translation 


horizontale négative. 

Ces quatre dernières touches permet- 
tent de faire du centrage sur des por- 
tions d'image. La touche "T” déclenche 
l'exécution du tracé en utilisant les 
paramètres indiqués dans la fenêtre. 
La touche "RETURN" permet, là encore, 


Figure 7 : Manipulation d'objet 


Ceci nous permet de faire tourner l'ob- 
jet dans tous les sens et d'observer im- 
médiatement le résultat sur le moniteur. 

— L'utilisateur peut également modifier 
la distance entre l'œil et l'objet, ce qui 
permet de contrôler la grandeur de ce 
dernier. 

Touche ” A": l'œil avance vers l'objet 
Touche " R": l'œil s'éloigne de l'objet 

La touche "T" déclenche l'exécution du 
tracé à partir de la position de l'œil 
(R,0,@) indiquée dans la fenêtre 
du bas. 

Lorsque l'image apparaît sur le moni- 
teur, le programme revient automatique- 
ment sur la fonction utilisée. La touche 
"RETURN" permet de remonter à la sé- 
lection d'une autre fonction. 


- Manipulation d'écran : 
code d'accès "E" 
L'objet étant positionné dans l'espace 


de remonter à la sélection d'une autre 
fonction. 


Il est essentiel de bien comprendre la 
différence entre une modification de la 
distance œil-objet et la modification de 
la distance œil-écran. 

On laisse le soin à l'utilisateur de tirer 
une règle simple sur les variations de 
ces deux paramètres en proposant d'u-' 
tiliser pour cela l'objet n° 2 de la biblio- 
thèque (cube ouvert). 


. Zoom : code d'accès ” Z” 

L'objet étant visualisé sur le moniteur, 
l'utilisateur a la possibilité de définir de 
manière interactive une fenêtre préci- 
sant la zone devant être agrandie. 

Ceci se fait par l'acquisition de deux 
points à l'aide du Joystick, matériali- 
sant la diagonale de la fenêtre. 

Attention, le point représentant la posi- 


tion courante du curseur est rouge et 
de petite taille. Il part toujours du cen- 
tre de l'écran. Lorsque l'on a sélection- 
né le 1er point, le curseur se dédouble. 


A la sélection du 2eme point, le cadre 
rectangulaire rouge indique la zone des 
traits du dessin sans pour autant les 
effacer. 


Nous vous proposons, à titre d'entrai- 
nement, d'essayer le zoom sur l'axe du 
moulin (objet n° 4 dans la bibliothèque) 
ou sur la carlingue de l'avion (objet n° 
3). 

On peut, bien entendu, enchaîner plu- 
sieurs zooms les uns derrière les au- 
tres. L'utilisation de la touche "RE- 
TURN" donne le choix de revenir ou non 
à l'image initiale. 


-« Elimination des faces 

cachées : code d'accès ” R" 

À partir de l'image en cours sur le mo- 
niteur, on réalise un dessin en couleur 
dans lequel les faces cachées sont éli- 
minées. 

Là, l'utilisateur n'a rien à faire si ce 
n'est REGARDER et APPRECIER. 


e Modélisation d'un objet complexe 


CONCLUSION 


"VISION" présente, à nos yeux, un ca- 
ractère pédagogique certain. C'est, en 
effet, une initialisation aux techniques 
C.A.O. et les principales fonctions gra- 
phiques sont présentes. Ainsi, les "fa- 
ces cachées”, dont beaucoup parlent 
et que peu montrent, existent dans 
"VISION". 


Si le sujet n'est pas très original, il a au 
moins le mérite d'être d'actualité. La fa- 
çon dont les techniques graphiques 
courantes ont été introduites nous sem- 
blent intéressantes. Le résultat en est 
que, même avec une machine aux ca- 
ractéristiques techniques modestes, 
on obtient des performances très satis- 
faisantes (zoom, faces cachées...). 
"VISION" est un logiciel destiné à évo- 
luer : 

— Tout d'abord, il reste des améliora- 
tions à apporter : on les a évoquées 
lors de l'exposé sur les faces cachées. 

— Ensuite, la partie "mise en donnée" 
est à concevoir entièrement en instal- 
lant un degré d'interactivité poussé 
pour la définition, le rappel, la modifica- 


tion d'objets. Là, le lecteur de disquet- 
tes nous semble malheureusement 
indispensable et nous n'en disposons 
pas actuellement. 

—Les évolutions envisagées égale- 
ment concernent le développement de 
nouvelles fonctions. Citons, par exem- 
ple, l'animation, traitement de figures 
axisymétriques, pièces avec arcs de 
courbes. 


En conclusion, "VISION" constitue un 
module de base dans la conception de 
pièces. Il reste un logiciel ouvert à l'uti- 
lisateur où chacun peut laisser libre 
court à son imagination. 
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Définition du repère de description 


Modélisation par facettes : 
40 nœuds 
25 facettes 


Facette : 


9 10 11 12 12 


7 


Modélisation "AVION" 


Facette : 


xl 
ÉTal Te 


Prises d'air — 


Facettes : 


17 19 20 18 
5 16 18 20 
15 17 19 1 
1 5 16 15 
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Facettes : 


Facettes : 


27 25 21 0 
21 22 28 27 


14 23 26 0 
14 26 25 0 
14 25 24 0 
14 24 23 0 


Facettes : 


23 5 20 22 
21 22 20 19 
1 19 21 24 
23 5 1 24 


FUSELAGE 


SON VIDÉO 
2, 2000 


: MICRO 
AQUITAINE 


AMIS DU LOTO 


ne gaspillez plus votre mise ! 


R.electronique 


Jouez “malin” avec 
LOTO-INFORMATIC 


Le programme d'analyses, 
de sélections et 


ATARI 
de combinaisons de jeux 
dont vous rêviez pour mettre AMSTRAD SRIC 
le maximum de chance 
de gagner de votre côté 62 RUE DU Gl DE GAULLE OLIVETTI 
Docnestién 54438 CHEHNEVIERES / M CE commodore 
+ CADEAU gratuits (16,1) 45,76,73,13 Compatibles IBM 


en écrivant, sans tarder à : 


INFORMATIC Applications 
15, rue du Hohwald 
67800 HOENHEIM 


Le Specialiste AMSTRAD 
ET COMPATIBLES PC 


31, cours de l’Yser 

33800 BORDEAUX 
Tél.: 56.92.91.78 
Télex 572-421 


a 


NOUVEAU ! 


Le numéro 1 est paru : ne le ratez pas | 
Editions SORACOM 
La Haie de Pan - 35170 BRUZ 


10 REM 6 6 dé de De D EE fé he Dé EE EE 
20 REM +% = VISION — * 
“OO KREM * #% 
40 REM % outil d'initiation * 
DO REM * aux techniques CAO #* 
60 KEM *# # 
70 REM +*# Auteuré: # 
BQ REM +% Michael et Jack FEIGNEY * 
DO REM #4 eee D ED DEEE DEEE HE EEE DEEE HEDÉHEDEDEDEEXE 


100 INÉ OSLLLINE 1,242 INE 2,115 INE 3,6:FA 
FER O:EORDER 1 

110 LOAD "'cerpai",%A000:CALL &A0O00 

120 DIM xvz (5,100) ,xvfa(r,100) ,ifac(4,10 
O) ,xyvec (2,100) 

150 DIM profa(100) .ord%(100) 


140 REM 
150 RENM definition qeometrie 

160 REM (espace reel) 

170 REM = 
180 indicz=O : MODE ? 

190 INFUT " utilisez-vous un objet pre-d 
efini (o/n) "“srep#f 

200 IF reptz'"n" GOTO 220 

210 GOSUR 2250 : GOTO 320 

220 REM ..... lecture des noeuds ..... 
250 INFUT "nombre de noeuds ":noeud 

240 FOR kzi TO noeud 

250 INPUT i,xvz(il,i) ,xvz (2,1) ,xvz (3,1) 
260 NEXT EH 

270 REM .... lecture des facettes .... 
280 INFUT "nombre de facettes "“,nfac 
290 FOR kzi TO nfac 


300 INFUT ifac(i,kH) ,ifac(r.k) ,ifac(C3.E), 
ifac(4,k) 
F0 NEXT EH 
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GOSUR 2510 

» FOR ikz= 1 TO noeud 
410 GOSUER 2660 
420 Hyfa(i,ik) = x0 
450 Kyfa(2,ik) = vo 
440 xyfa(t3s, ik) = 0 
450 NEXT ik 
4680 IF indic*O THEN 630 
ÀA70Q REM == eu oo ee 
480 REM recherche des coordonnees maxi 
ADO REM == 
500 wiz 1000000  w = —-1000000 
510 w%= 1000000 5 w4 = —-1000000 
520 FOR ik= 1 TO noeud 
520 wi = MIN(WI,KkVfa(l,ik)) : W2 = MAX (w 
2,xvfa(i,ik)) 
40 w% = MIN(WT,uYVfaCR iE)) : w4 = MAX (W 
4,xv#fa(t2z,ik)) 
330 NEXT ik 
560 IF wWizw2 THEN w2ewi+100 
570 IF wi=zw4 THEN w4z=w3+100 
5680 GOSUR 2220 
590 deINT((W-wi+w4-wi) #5) : red 
6800 dræer/20 sdphisl rdtetazl 
610 dd=dr : yecran4=0:xecranks0: Rx : 

dy=®? 

620 ampli=i 
IQ RENM = eee 
640 REM trace des triangles sur ecran 
SO REM == 
66 CLS 
670 bx=bB+xecranx : bysb9+yecranx 
680 FOR ik= 1 TO noeud 
690 xreuyfa(il,ik)+a8 : yrenxyfa(2,ik)+#a9 


700 cons=d/(KxvfaC3,ik)+r) 

710 xyvec(l.ik)=consxxr+bx : xyvec(Z.ik)zc 
onsxvr+bv 

720 NEXT ik 

720 REM ..... traïre des facettes ,..... 
740 nplum=i 

750 FOR ikz=!l TO nfac 

76 GOSUR 2760 

770 NEXT ik 

780 IF indic=1i GOTO 1110 

790 IF indic=? GOTO 1330 

800 IF indic=: GOTO 1540 

810 IF indic=4 GOTO 1840 

8270 KEM JE DD ME JE DEEE DEN DE DÉC CM É ED DÉ EEE 
8:0 REM +* choix utilisateur # 
840 REM +% d'une fonction * 
850 REM +* # 
860 KEM * O : manipulation objet * 
870 REM +*# # 
880 REM *# e : deplacement de # 
890 REM +# l'ecran # 
900 KEM *% | x 
910 REM +# 2 : zoom (manette jeu) # 


920 REM * + 
930 REM * c : representation * 
940'KEM * avec faces cachees * 
950 REM +*# * 
960 REM * a : animation de l'objet + 
970 REM * sur une trajectoire # 


98Q KREM Me DE DEEE OM DEEE DEEE DEEE ÉD DEEE DE DE 

990 WINDOWK3Z,1,40,25,25:FAFER#KS, 2: CLSHTS 
1000 FENKI,Z: FRINT#Z,"o:objet e:ecran z: 

zoom r:remplissage " 

1010 i$F=INFEY#:IF i$="" THEN GOTO 1010 
1020 IF INÉEY(18)=0 THEN CLS : GOTO 180 
10350 IF i$t="o" GOTO 1110 

1040 IF i$='"e" GOTO 1350 

1050 IF i$="z" GOTO 1540 

1060 IF i£="r" GOTO 1840 

1070 GOTO 1010 

1080 REM He ee DEEE DEEE DEEE DE DEEE DE DEEE EX 
1090 KEM +* position observateur * 
1100 REM EEE DEEEOMEHEHEMUHE DE DE DE DE DEEE EEE DE DE DEEE 
1110 indicz=i: rinisr : ang=0 

1120 WINDOW#H#4,1,6,1,1:FAFERK4,2:CLS#4 
11720 FEN#4,3:FRINT#4,"Obiet" 

1140 WINDOW#?,1,40,25,25:FAFER#K2, 3: CLS#2 
1150 FRINT#2, "or="srs"  "s"phis"sphis" 
teta=";:teta 

1160 if=INKEY#:IF i+t="" THEN 1160 

1170 IF INHEY(18)=0 THEN FAFER#K4,0:CLS#4 
:GOTO 1000 

1180 IF if=CHR#(116) 
1190 IF if=CHR# (240) 
ang=i 

1200 IF i$f=CHR#(241) 
ang=l 

1210 IF it=CHR# (242) 

a : ang=i 

1220 IF it=CHR# (245) 
a : ang=i 

1220 IF it='"a" THEN r=r-dr 

1240 IF it="r" THEN r=r+dr 

1250 FRINTHES, "or="ygrs"  "s"phi=":sphis" 
teta="iteta 
1260 GOTO 1160 
1270 xensxcent : 
r : GOSUER 2450 
1280 IF ang=i GOTO 3:90 

1290 GOTO 660 

1300 REM MEHR DE DEEE DE DE DE HE DEEE DE DEHE DEEE JEU JE 
1510 REM * position ecran * 
1220 REM HE DEEE MED EHE HD DEEE DE HE DÉ DEEE DE JE DE 
1370 indic=? : dini=d 

1340 WINDOW#4,1,6,1,1:FAFER#4,2:CLS#4 
1250 FEN#4,2%:FRINT#4,'"Ecran" 

1560 WINDOWK?,1,40,25,25:FAFERK2,.23:CLS#E 
1270 FRINTHZ, “"d='"sdi:" xecran=":xecranx: 
" vecran=":vyecranx 

1280 iF=INEEY#S:IF if="" THEN 1380 

1390 IF INKHEY(18)=0 THEN FAFER#4.,03:CLS#4 

GOTO 1000 

1400 IF i+f=CHR# (116) 

1410 1F if=CHR#(240) 
A+dy# 

1420 IF it=CHR#(241) 
AL—dvA 


GOTO 1270 
THEN phi=phi+dphi : 


THEN phi=phi-dphi : 
THEN teta=teta-dtet 


THEN teta=teta+tdtet 


ycen=ycent : ampli=rini/ 


THEN GOTO 1490 
THEN vecran/=yecran 


THEN vecran=yecran 


THEN xecran/sxecran 


1430 IF i$=CHR# (242) 

dx 

1440 IF it=CHR$ (245) 

Atdx 

1450 IF it="a" THEN d=d-dd 

1460 IF it="r" THEN d=d+dd 

1470 FRINT#Z, " d=";d:" xecran=";xecranx 
s" yecran=";yecranx 

1480 GOTO 1:80 
1490 xen=xcent : 
i : GOSUR 2450 
1500 GOTO 660 
1910 REM 4e DH DE JE DEEE AEHE DH EEE HE DE DE DEN 
1520 KEM * utilisation du z200m * 
1530 REM 446666 eee DE DEEE DE DE DEEE DE DE DEEE DE DE DE DEEE 
1540 IF indici?rz THEN rs=r:ds-=d:b6s=b8:b 

9s=b9: GOTO 1570 

1550 FLOT x1,y1i,3 

1560 DRAW x1,V2,23:DRAW x2,Y2,3: DRAW x2,V 
1,2:DRAW x1,v1,Z 

1570 indic=i 

1580 WINDOW#2, 1,40,25,25: FAFERK2, 3: CLS#2 
1590 FRINTH®, "“ choisir € points avec le 
joystick " 

1600 WINDOW#4,1,6,1,1:FAFERK#A,2:CLS#4 
1610 FENK4,Z:FRINT#H#4,"Zoom" 

1620 i$f=INFEYS:IF it="" THEN 1620 

1670 IF INKEY(18)=0 GOTQ 1760 

1640 a=J0OY(O) : IF a=Q GOTO 1620 

1650 GOSUR 2860 

1660 dex=AERS(xx-x) :dzy=ARS 
1670 IF dzx=0 GOTO 1590 
1680 IF dzy=0 GOTO 1590 
1690 di=(v?-v1)/dzx:d2=(v4-V3) /dzv 

1700 ampli=di : IF d2idi THEN ampli=de 
1710 xen=(xx+x)/2 : voenz(vv+v)/2 : GOSUR 
2450 

1720 d=d#ampli 

1750 xisampli*(sx 
(vv-ven)+vcent 
1740 xP=amplix(x -Hen)+xcent 5 y2= 
(y —-ven) +vcent 

1750 GOTQ 660 


THEN xecran/=xecran 


yenzycent : ampli=d/din 


Cyy-Yy) 


x-wcn)+xcent : vVisampli+ 


ampli+ 


1760 REM ------ objet initial ------ 
1770 INFUT#H#2, " revient-on a l'objet ini 
tial (o/n) ":repf 

1780 FAFERHKA4,0:CLS#4 

1790 IF rep#fii"o" GOTO 1000 

1800 r=rs:d=ds:b8=b8s:b9=b9s : indic=-1 
: GOTO 660 


1810 REM eee eee DEEE HE MÉMEDE DEEE NEED HE EN 
1820 REM * remplissage des facettes % 
18370 REM 4420640666 ED DEEE EEE EE DEEE EUX 
1840 indic=4 


1850 REM ---- profondeur facettes ---- 
1860 FOR i=1 TO nfac 
1870 kzi : numzifac(i,i) : prof=xyfa(ï,n 


um) 

1880 FOR j=? TO 4 : num=ifac(j,i) 
1890 IF num=0 GOTO 1920 

1900 kzk+1 : prof=prof+xyfa(CZ.num) 
1910 NEXT ï 

1920 profa(i)=prof/k+r 

1970 NEXT i 


43 


1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 


2020 


CLS 

REM ----— classement facettes ----- 
GOSUE 53210 

REM —------- remplissage --------- 


FOR iz1 TO nfac 
ik=sord(i) 
nplum=1i : GOSUR 
IF kcotz=? GOTO 
ikisifac(i,ik) 


2760 
2170 
sxcc=xvec(il,ik1) : 


coez=xyec(2,ik1) 


2070 
2040 
), 3 
2050 
2060 
t) 
2070 
2080 
2090 
2100 
2110 
2120 
2150 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
Len Lun Len} 


ai a a 


2250 


2240 
2250 
2260 
2270 
2280 
Lx 

2290 
1v 

2700 
27510 


REF 


ét 


2740 


2320 


22:50 


2400 
2410 
2420 
2430 
2440 
2450 
2480 
2470 
2480 
2490 
25300 
2510 


2920 
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FOR  j=2 TO kcot 


num= ifac(j,ik) sxcc=xcc+xyec(i,nu 


vVec=ycc+xyec (2,num) 


NEXT j 

Xcc=INT (xcc/kcot) : ycecseINT(vec/ke 

si le centre 
...... est dans l'ecran 

xcc4O GOTO 2170 

xcc:590 GOTO 2170 

veciO GOTO 2170 

vecc+390 GOTO 2170 

IF TEST(xcc,ycc)=nplum GOTO 7170 

IF TEST(xcc,vcec)=0 GOTO 27160 
IFAI,xcCcC,vec,0,0,1,1,2,1,0 

FAI, nec,vec,2,2,1,1,2,1,0 

nplum=: : GOSUE 2760 

NEXT :i 

GOTO 990 

REM 

END 

REM 6e dede dé DEEE ED DÉ DEEE DÉHE DEEE DE DE DEEE HE 

REM % definition viewport Le 

REM 44646636 EEE DEEE DÉHEDE EEE DE ÉD EG HE 

VI=200 : v2=450 s: vI3=100 : v4=300 

REM 

vlx= 


REM on ne peint que 
REM 
IF 
IF 
IF 
IF 


FIN OU FROGRAMME 


(W2-w1) : vly=(w4-ws) 


IF vlxi:vly THEN va=zvi+(va-vi)#vlv/v 


IF vlysvilsx 


*xcent=(vi+v2)/2 : ycent=(vi+v4)/2 


aB= (vi-vi)/(w2-w1) 

bDG= (vixwi-vT#wi) / (W2-w1) 

a9= (v4-vi) / (W4-w3) 

b9= (VI4WI-VAaWE) / (W4-WZ) 

REM 

RETURN 

REM #6 46e de ee DE DEEE EEE DEEE DEEE EE EE 


REM + coordonnees ecran * 
FREM #46 3 ee DEEE EE EE EE EX 
REM 

ke= a8xxr + b68 

vez a9xvr + b9 

REM 

RETURN 

REM 4x DEEE MERE DENON EE ME EEE 


REM + centrage dessin sur ecran * 
REM de EEE HE DEEE DEEE DEEE EE JE 
b8=ampli*(b8-xen)+xcent 
b9=ampli+x(b9-ycen)+vcent 

RETURN 

REM He EEE DE DEEE DEN EEE EE 
REM + parametres # 


ÿ 


m 


O 


THEN vz=svi+(va-vi)#vilx/v 


29330 
2540 
25350 
2360 
2570 
2380 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 

KYE 
2750 

KVEZ 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 


2820 


REM +# de la transformation * 
REM 266366 EME DE DEMEURE EEE DEEE ÉD EE 
REM 

gi = SIN(teta) 

ci = COS(teta) 

s? = SIN(phi) 

£c2 = COS(phi) 

si = ci+s? 

s4 = 51l%+s2 

sS = ci+cz 

sb = sic? 

REM 

RETURN 
NSMRELILILLLLLILLILLLLLLEILLILLLSS.. 
REM # transformation # 
REM +# des coordonnees # 
NAURELLILILILILILLLILLLSILLLSSLISISS. 


REM 
KO = 


—Xyz(il,ik)xsi + 
YO = -xvz(l,ik)#sz - 


xvz(2,ik)+ci 
kVz(Z2,i1k)%#s4 + 


CZ,i1k)#c2 


20 = -Kyz(l,ik)ksS —- xyz(2,ik)+s6 


(3,ik) +82 


REM 

RETURN 

NS LLZLZILLLLLILSLLLILLLLLLLLEILLS.. 
REM + facette sur ecran % 
REM 444646 eee ee EEE HÉ HE CHEE DEDE DEEE HE EE 
ikl = ifac(i,ik) : kcot=l 


MOVE xvec(1,iki) ,xyec(2,ik1) 
FOR ins? TO 4 : numzifac(in,ik) 
IF num:0O THEN kcot=kcot+1i: DRAW “ve 


£(1,num) ,xvec(?,num) ,nplum 


2e k 
2870 


2840 
2850 
2860 
2870 
2880 
2890 
29700 
2910 
2920 
2950 
2940 
2950 
2960 
2970 
2980 
2990 
FO00 


5050 
E060 
5070 
080 
090 
3100 
3110 
3120 


3170 


NEXT in 
DRAW xvec(1,ik1) ,xvec(2,ik1) ,nplum 
RETURN 


FREM 6466 36e dé 6 Dé CHENE ÉÉ DÉNEEE É E X 


REM *% definition fenetre zoom *# 
REM + np : couleur du fond # 
REM % np : couleur fenetre # 
REM Heu Je JE DE DE DEEE DE D DE DE DE DE EEE DEEE NE 
nf=0 : np = 3 

X=IZ2O0s: yV=200:HH=MIYVyEYtI ex0 

FLOT x,v,np 

a=JOY (0) 


IF a=0 THEN GOTO 
IF a*10 GOTO 37110 


2940 


REM .... mouvement du point ..... 
IF TEST(x,v)=enp THEN FLOT x,v,nf 
IF a=1i THEN vzy+1 

IF a=2 THEN vyzy-1 

IF a=4 THEN x=x-1 

IF a=8 THEN xzx+1 

IF a=S THEN x=x-1:vzy+1 

IF a=6 THEN x=x-1ivzy-1 

IF a=9 THEN x=x+1:v=y+i 

IF a=10 THEN x=x+1l:vzv-1 

IF e=i THEN FLOT «x,yvy,np 

IF TEST(x,v)=nf THEN FLOT »#,v.rnp 


GATO 2940 


REM ...,.., point clique ........ 
IF ei GOTO 3170 

KMEK 1 VYyEVv ss e=i 

FRINT#Z, Maieteuxe" viztsyys" schoi 


* deuxieme point" » 


5140. a=JOY(O):IF a£*0 GOTO 3140 

3150 GOTO 2940 

5160 REM .. sortie tracer du cadre ... 
3170 FLOT xx,yy,np 

5180 DRAW xx,y,np:DRAW »x,y,np: 

3190 DRAW x,yv,np:DRAW xx, Yy,np 

3200 RETURN 

210 REM 364644603646 6e eee é DE De EEE De EE DE EEE 
2220 REM * classement des facettes + 
HPEO REM 63e de ee Dé De DE D DE DE DEEE D EEE 6 EE 
3240 FOR i=i TO nfac 

2250 ord(i)zi 

3260 NEXT ji 

3270 REM ...,... debut du tri ....... 
3280 FOR izi TO nfac-1 : FOR ji=i+1 TO nt 
ac 

3290 IF profa(j)i=profa(i) GOTO 3350 


valez= profa(i) : 


ival= ord%{ii) 


profa(j)= profa(i) : profa(i)z vale 
ord(i) = ord(i) s: ordA(i) = ival 
NEXT j : NEXT i 
RETURN 
290 REM 4364646366 de De DEEE HE DE EE DE DE DE DE 6 
3560 REM *% liste des obiets # 
REM % disponibles et choix * 
REM 6366 ee EMEA NE DE EEE DEEE DE DEEE 
nab jet=5 
FRINT " objets disponibles" 
FRINT pyramide sus. ss és 
+ 
FRINT " cube avec aquverture .. 
3450 FRINT " avion mirage III...... 
5440 FRINT " meunier tu dors ....,.. 
srsesses 4 
5450 FRINT " icosaedre ss... 
és ee se D 
5460 FRINT : INFUT " donner votre choix 
"4 iobi 
3470 IF iohj = 0 THEN GOTO 5460 
3480 IF iobi * nobiet THEN GOTO 3460 
5490 ON iobj GOSUB 23510,7770,3:980,47:40,4 
740 
3500 RETURN 
2910 REM #6 dd DE EH DEEE DEEE DE DE DE EEE EE 
33520 REM *% definition obiet % 
HSFO REM +* "pyramide" * 
2540 REM + * 
25350 REM * nb noeuds ,nb facettes #* 
23560 REM * coordonnees Xx,ÿ,z du noeud % 
3570 REM + (2/1igne) # 
2580 REM * % 
2590 REM + facettes i,j,k,1 (2/ligne) +* 
ZOO REM 46366 Dé DDRM ÉD DE DE DEA DEDEHEHÉNEDÉDÉAEEÉMEE DE N 
“610 DATA 5,5 
5620 DATA 0,0,0, 1.0.0, 1,1, 
Q, 0,1,0 
3650 DATA 0,.5,0.5,1 
#640 DATA 1,%,7,4, 1454240. 2 
dy 900 3,5.4.0 
5650 DATA 4,5,1.,0 
5660 RESTORE 34610 


3670 READ 
3680 
3690 
3700 
3710 
#720 
3750 FOR 
3740 READ 
ifac(4,i) 
3750 NEXT 
35760 KETU 
3770 REM 
5780 REM 
3790 REM 
5800 REM 
“810 DATA 
#8720 DATA 
l, 
28730 DATA 
571, 
26840 DATA 
Lis dis 
3850 DATA 
1,5.6,%: 
3860 DATA 
9,10,1 
3870 KEST 
2880 FREAD 
3890 KEM 
5900 FOR 
3910 READ 
3920 NEXT 
5970 REM 


FOR 
READ 
NEXT 
REM 


‘7940 FOR 


2950 READ 
ifac(4,i) 
2960 NEXT 
3970 RETU 
3980 REM 
5990 REM 
4000 REM 
4010 REM 
4020 DATA 
4050 DATA 
60,55,0, 
4040 DATA 
60,-55,0, 
4050 DATA 
10,0,50, 
4060 DATA 
4070 DATA 
10.5%,15, 
4080 DATA 
4090 DATA 
O,—7,0, 
4100 DATA 
4110 DATA 
4120 DATA 
65,-12,2, 
4170 DATA 
4140 DATA 
65,12,23, 
4150 DATA 
4160 DATA 


REM ---- lecture des noeuds 


noeud,nfac 

izi TO noeud 
xvz(l,i).nvz (Zi) ,xvz(z,i) 
i 


lecture des facettes 
izi TO nfac 


ifac(i,i),ifac(z,i),ifac(z,i}, 
i 
RN 
PTETTTTTIILSLILILLIILSILISILILILIILLLSS) 
# definition obiet * 
* “cube. ouvert" # 
PL TLTLILILI LILI L LL SLR SSL RSS ES dd, 
12,8 
Lo do À à 11,1, —i,-i1, 
—1,1,i 
A da i.—1,-1, —1,—i 
En À 
Ole Ts OO Hslss ds FT 
— SeloTi 
1,24344: Daba7sB« 
2101712 
5,7,8.4, 4.8,12,11, 
ss 1,10,11,4 
ORE 3810 
noeud ,nfac 
-—--— lecture des noeuds —---- 


izi TO noeud 
“yvz(l,i).nxvez (2,i) ,xve(z,i) 
i 
—_——— lecture des facette ---- 
izi TO nfac 


.ifac(i1,i),ifac(s,i) ,ifac(s,i), 


i 
KN 
JE HD DE DE DE DEN DE DE DE DÉMEE DE DEEE DEEE DEEE EE 
# definition obiet # 
# “avion m-d'" * 
AA DEN DE DE HE DEAENE DEEE DE DE DEEE DEEE DEEE JE 
40,25 
176,10,0, 170,55,04 1 
85,8,0 
176,-10.,0, 170,-55,0, Î 
85,-8,0 
1:5,0,16, 19%,0,.16, 2 
190,0,50 
0,0,5, 15,0,5 
205,6,2, 209,632 ea 
210,-7,15 
195,5,16, 195,-5,16 
60,6,20, 60,-6,20, 5 
20,70 
99,6,12, 29,76,12 
28,3:,10, 28,-5,10 
65,-7,10, 85,-12,10, 
653-792 
85,-8,0, 120,-6,18 
65,7,10, 65,12,10, 
65,7, 
85,8,0, 120,6,18 
243 Dsbs/40s 9, 


45 


10,11,12, 
4170 DATA 17,19,20,18. 
1717 Le 1,5,16,15 
4180 DATA 23,5,20,27,  21,27.70,19. 
,19,21,24, 
4190 DATA 14523128 oO, 
.25,24,0, 24,23,0 
4200 DATA ss 


2252827 


4210 DATA 29,70,74,0, 
F0,71,25E,74 
4220 DATA 25,5:6.40,0, 
36,37,39,40 
2350 RESTORE 4020 
4240 KEAD noeud,nfac 
4250 REM ---- lecture des noeuds —----- 
4260 FOR izi TO noeud G 
4270 READ xvz(l,i) ,xvz (2,1) ,xvyz (3,i) 
4280 NEXT i 
4290 REM --- lecture des facettes ---—- 
4300 FOR izi TQ nfac 


13,14,0,0 
5,16,18,20, 1 


BF, 01,24 


lors ets o0 


57.50,.3:9,0, 


4310 READ ifac(i,i),ifac(2,i),ifac(z.i), 


ifac(4,i) 

4320 NEXT i 

43520 RETURN 

4740 REM #46 66e Dee JDE HE GE DE DE DE DE DEN EEE 
3250 KEM *# definition objet moulin *% 

460 REM #0 eee MEME EME DE DEN DE DEEE DEEE EEE EE 

4570 DATA 57,55 


4:80 DATA 0,0,200, D24204,109. 
30,52,105, 0,60,105 


4390 DATA -50,52,105, 
-60,0,105, -52 


-52,30,105, 
— F0, 105 


4400 DATA _30,-52,105, 0,-60,105. 
30,-52,105, 52,-50,105 
4410 DATA 60,0,105 —-40,-40,105, 


40,40,105 
—-65,-65,0, 
65,65,0 


-40,40,105, 
4420 DATA 40,-40, 
—65,65,0, 


105, 


4450 DATA 65,-865,0, 67,20,105, 
67,80,155, 63,80,180 

ne, DATA 683,8,120, 63,-20,108, 

8,120, 67,-60,180 

4450 ee 63,-80,155, 67,-20,95, 
63, eo. 65,-60,20 

4460 DATA 67,-80,45, 63,20,95, 
6Z,80,45, 67,60,20 


4470 DATA 67,8,80, 
65,12,112, 

4480 DATA 65.127,88, 
65,-12,88, 65, 

4490 DATA 65,-17,112, 
40,5,95, 

4500 DATA 40,-5,105, 
65,-20,50, 

43510 DATA 65,20,50, 
65,0,0, 

4520 DATA 50,20,50 

453:0 DATA Litritidy 
1,4,5,0, 

4540 DATA 1,6,7,0, 
1,8.9,0, 

4550 DATA 1,10,11,0 
1,12,13,0 


65,93,109, 
65,5,95 
CPP LE 
-5 103 
40,5,105. 
40,-5,95 

65,-20,0,. 
65,0,90 

63,20,0, 
90,—-20,950 

1,7.4,0, 
1.2,6.0 

1,7,8,0, 
1,9,10,0 

lis 1e. 0 
i415:23,0 


46 


14,26,25.0, 14 


2712921. 21 


4560 


DATA 18,19,15,14,  18,14,17,21, 


20,19,15,16 


4570 


4580 


4590 


30,%1,32,3 


DATA 22,23.24,25,  26,27,28,29, 
34,35,5%6,37 


DATA 28,29, 0,0, 40,41,0,0, 
42,47,0,0, 44,45,0,0 

DATA 18,46,49,44, 40,47,46,:8, 
42,40,47,48, 42,48,49,44 


4600 


DATA 50,51,52,55, 52,53.54,55, 


51,56,57,5% 


4610 DATA 5%,57,54,0, 91,96.50,0 

4620 DATA 17,56,57, té. 16,57,84,20, 
17,5%6,50,271 

4620 RESTORE 4770 

4640 READ noeud.nfac 

4650 REM ---- lecture des noeuds 

4660 FOR i=1 TO noeud 

4670 READ Hvz(1,i),nvz (Pi) ,uve (Hi) 

4680 MEXT i 

4690 REM --- lecture des facettes --—- 

4700 FOR i=1 TO ntac 

471Q READ ifac(1,i),ifac(?.i),ifac(z.i), 


ifac(4,i) 


4720 
4750 
4740 
4750 
4760 
4770 
4780 
4790 


NEXT i 
RETURN 
REM 4h36 hé ee DE DE EME DE DH DE DE GE EEE DEEE 
REM % definition objet # 
REM * “icosaedre" * 
REM 6646 eee DE AE AE AE A HE AE DEA DE AE DE dE 


DATA 12,20 
DATA 0.8944,0,0000,0.447?, © 


.2764,0,8506,0,4472 


4800 


DATA -0,7256,0.5257,0.447?, —0Q 


.7236,-0,5257,0,447® 


4810 


-0000,0,0000,1 


DATA 0,.2764,-0.8506,0.447?, Q 


. 0000, 


4820 DATA 0,0000,0, 0000 ,-1.0000, Q 
.7236,0,.5257,-0.4475 

48:0 DATA -0,2764,0,8506,-0.4472, = 

0,8944,0,0000,-0,447% 

4840 DATA -0.2764,-0,.8506,-0,447%, 

0,.7276,-0,5257,-0,447® 

4850 DATA 1,2,6.0, 217.6.0, 

3,4,6,0, 4,5,6,0 

4860 DATA 5,1,6.0, 1Sals SO 
12,8,1,0, 8,2,1,0 

4876 DATA 9,5,8,0, Pas 

9,10,3,0, 10,4,5,0 

4880 DATA 10,11,4,0, 11,5,4,0, 


11,12,5,0, 


4890 


F1 


4900 
4910 
4920 


7,8,12,0 
DATA 7,9,8,0, 

10,0, 7 
RESTORE 4780 
READ noeud,nfac 

REM ---- lecture des noeuds ----- 


710,90, 
112114 


49350 FOR izi TO noeud 

4940 READ xvz(l,i),xvz (D,i) ,xvz(x,i) 
4950 NEXT i 

4960 REM --- lecture des facettes —--—- 
4970 FOR i=1 TO ntac 

4980 READ ifac(l.i),ifac(r.i),ifac(zs.i), 
ifac(4,i) 

4990 NÉXT i 


5000 


RETLIRN 


MOULINS MICRO PERON 
90, rue Regemortes 
03000 UNS 


L'OREILLE HARDIE 
Centre Commercial Intermarché 
04000 DIGNE 


FNAC ETOILE - Centre NICE Etoile 
Medecin 


30, avenue Jean 
06000 NICE 


HHA1 DIFFUSION - Jeamco SARL 
19, rue Tondut de l'Escarène 
06000 NICE 


LIBRAIRIE A LA SORBONNE 
S.NC, Seyrat 

23, rue Hôtel des Postes 

42, rue Giofredo 

06000 N 


GES COTE D'AZUR 
Résidence les Heures Claires 


454, LE rer 
06210 MANDELIEU 
UBRARIE A LA SORBONNE 


7, rue des 
06400 CANN 


PANORAMA DU LIVRE 
UBRARE DES ECOLES 


Centre Commercial CAP 3000 
06702 ST LAURENT DU VAR 
MICROPOLIS 


29, rue Pailot de Montabert 
10000 TROYES 


UBRARIE DE L'UNVERSITE 
12 À, rue Nazaroh 
13100 AIX EN PROVENCE 


FNAC MARSEILLE 

Centre Bourse 

13231 MARSEILLE CEDEX 
LIBRAIRIE FLAMMARION 
54, la Cannebière 

3, Marché des Ca 

13231 MARSEILLE CEDEX 1 


MAUPETIT UBRAIRIE 
UNVERS ee 

144, La Canebi 

13232 MARSEILLE CEDEX 01 


: Se MIDI 
av. de la Timone 
18010 O MARSEILLE 


LA PUCE INFORMATIQUE 
42, rue du Four-Bourg-Neuf Vieux Salon 
19300 SALON DE PHOVENCE 


LBRARE ARMOIRIES - JABALOT B. 


26, rue Saint-Yon 
17000 LA ROCHELLE 


M2L 
21 rue Albert 1 er 
17000 LA ROCHELLE 


GES CENTRE 
25, rue Colette 
18000 BOURGES 


UBRARIE DE L'UNVERSITE 
17, rue de la Liberté BP 1070 
21025 DJON CEDEX 


FNAC 
24, rue du Bourg 
21000 DIJON 


BERGERAC DIFFUSION PRESSE 


37, rue de la Résistance 
24100 BERGERAC 


CRUSSOL LIBRAIRIE 
10 Bd Gal de Gaule 
26000 VALENCE 


UBRARE HE” AU UVRE D'OR 


10, rue Noël 
28000 CHARTRÉES 


UBRARE D. LESTER 
13, bis rue du Cygne BP 124 
28007 CHARTRES CEDEX 


KEMPER INFORMATIQUE 
72/74, av de la Libéraïon 
29000 QUIMPER 


SAT Fe LA MAISON DU STYLO 
sum ROTOULOLRE 


FNAC TOULOUSE 
LiBRARIE DES CAPITOULS 
1 bis, place Ocditane 

31000 Toulouse 


UBRARIE PRIVAT 
14, rüe des Arts 
31000 Toulouse 


LIBRARE MOLLAT 
rue Porte 
33080 Par Drames 


Case ercial Polygone 
Te comm: 
33000 BORDEAUX 


SON VIDEO 2000 
MICRO-AQUITAINE (Ex COCAS) 
31, Cours de l'Yser 


He SAURAMPS 

Alée Jules Mihau BP 9551 
34045 MONTPELLIER CEDEX 
hs Ed LIVRE 


5, quai Lam 
38000 RENNES” 


TIREX BUREAU SERVICE 
16, A rue de Brest 
35000 RENNES 


RES 
35000 RENNES 


ne DIALOGUES 
LOISIR & CULTURE 
rue de la à Chats 
35000 RENNES 


MICRO-C INFORMATIQUE 
3, Bd de Beaumont 
35000 RENNES 


1.G.L INFORMATIQUE 
48, Bd de la Liberté 
35000 RENNES 


VIDEO SERVICE INFORMATIQUE 
GALLE 


9, du Président 

3700 TOURS NORD 

LM 

Centre Commercial CATS 
37170 CHAMBRAY LES TOURS 


LIBRAIRIE ARTHAUD 
23, Grande rue BP 187 
38000 GRENOBLE 


LIBRAIRE HAREL 
11, rue Saint 
38000 GRENO 


F2 6 La RuGkqe 
, TU 
39400 MOREZ 


UBRARE PILETAN 
3, rue du Commerce 


| 41000 BLOIS 


Librairie PLEIN CIEL 
41100 VENDOME 


LIBRAIRIE LAUXEROIS 
40, rue Charles de Gaulle 
42300 ROANNE 


LIBRAIRIE C. OUGUEL 
TECHNIQUE ET CLASSIQUE 


Pr de la Bourse 
NANTES 
MICRONAUTE 

9, rue pad ei Ê A Saint Bedan 


LIBRANRE LODDE 
te J. d'Arc et Royale 
ORLEANS 


FNAC 
16, rue R 
45000 ORLEANS 


Librairie BLANCHARD 
15, rue Bannier 

45000 ORLEANS 

RICHER LIBRAIRIE 

6, rue C ière 

49000 ANGERS 

DEPOT REGIONAL DE LIBRAIRIE 
FORUM 

Centre Commercial 


“Les Halles” BP 811 
49008 ANGERS CEDEX 


CHOLET COMPOSANT BASE 4 Librairie 
90, rue St-Bonaventure Eric GRENIER - 11, rue Samonzet 
HOLET 64000 PAU 
UBRAIRIE TECHNIQUE ARPAJOU-ORGANSATION 
22, rue du Puits de l'Are 12, de la Cathédrale 
.49300 CHOLET BAYONNE 
GUERUN-MARTIN & ALS - LIBRAIRIE GES PYRENEES 
82, place Drouet d'Erlon BP 216 28, rue de Chassin 
51058 REIMS CEDEX 64600 ANGLET 
UBRAIRIE MCHAUD MICRO-PYRENEES 
9, rue du Cadran Saint Pierre BP 360 led hé sal 
51062 REIMS CEDEX 65000 TAR 
LOGMCRO ORDI-2000 
M Lerhier Thierry COLENO 
2 av. de Laon 127, av. du Le de Bigorre 
51100 REIMS 65000 TAR 
ML POSTE SERVICE 
27, rue Ambroise Paré 68, rue Maréchal Foch 
53000 LAVAL 66000 PÉRPIGNAN 
BERGER VICTOR MICRO CENTER 
LA GRANDE LIBRAIRIE Centre Commerdal - des Halles 
13, 15 rue St Georges 67000 STRASBOUI 
54000 NANCY 
RS LEVRAULT 
UBRAIRIE “A LA SORBONNE" pre 
F. SCHMITZBERGER et Cie EX STRASBOURG CEDEX 
12, rue St Dizier BP 25 
54002 NANCY CEDEX UBRAIRIE HARTMANN Paul 
24, Grande rue 
LA BOUQUINERE 68025 COLMAR CEDEX 
7, rue du Port 
56100 LORIENT ALSATIA UNION 
de la Réunion 
CS.E. 1 MULHOUSE 
Mchel LUTZ 
6, rue Chwis UBRAIRIE G BISEY 
METZ 35, place de la Réunion 
68100 MULHOUSE 
MCRO BOUTIQUE - ECONOMAISON 
1-3, rue Paul Bezan GES LYON 
place de la Cahédrale 6, rue de l'Ama 
57000 METZ 69001 LYON 
RELAIS FNAC FLAMMARION LIBRAIRIE 
Centre St-Jacques 19, place Bellecour 
57000 METZ 69002 LYON 
ELECTRONIC CENTER UBRAIRIE CAMUGU 
16, rue Ancien Hopital 6, rue de la Charité 
57100 00 THIONVILLE 69002 LYON 
FURET DU NORD UBRAIRIE DECITRE 
tre se 6, place Bellecour 
59002 LILLE CEDEX 69002 LYON 
rl rs TAQUN gli LA RADIO 
, placs république , Cours ete 
A CROIX YON ui 
ETATS D ain 
, place , TU8 
So TOURCOI 69002 LYON 
FURET DU NORD MICRO-GESTION-FOCH 
21, rue du Qu 25, rue de Sèze 
58300 VALENCIENNES 69006 LYON 
PROTEC PHONE UBRAIRIE INFORMATIQUE 
9, rue St TS fab MONTAIG 
59500 DOU, 8, rue Pré Benevix 
74300 CLUSES 
ANTENNES PRINGAULT 
39, ter route de Eu GIBERT JEUNE 
59600 MAUBEUGI 15, bis Bd St Denis 
75006 PARIS 
FURET DU NORD - DEROME S.A 
18 et 20, av. Jean Mabuse FNAC 
59600 BEUGE 136, rue de Rennes 
75006 PARIS 
FURET DU NORD 
15, Bd Ba FNAC ETOILE 
62300 LE! 26, avenue de Wagram 
75008 PARIS 
LENS MICRO INFORMATIQUE 
96 av. Alfred Macs MICROPLUS "ELYSEES 26" 
route de Lievin 28, av. Champs Elysées 
62300 LENS 75008 PARIS 
MCROGICIEL MICROPLUS 
Bernard Thomas Sw KBS ELECTRONCS 
Er 64, rue de la Chaussée d'Anin 
62500 St OMER 75009 PARIS 
GES NORD UBRAIRIE PARISIENNE 
9, rue de l'Alouetis DE LA RADIO 
62690 ESTREE CAUCHY 43, rue de Dunkerque 
75480 Paris Côdex/10 
GIBERT JOSEPH UBRARE 
42, av des Etats-Unis MISMO 
63000 CLERMONT FERRAND 84, Bd Beaumarchais 
75011 PARIS 
nue LES VOLCANS 
fs ra CHOLET COMPOS 
83200 CLERMONT FERRAND ELECTRONQUE 
rue Emäo-C. 
FNAC 75012 PARIS 
Centre Jaude 
63000 CLERMONT-FERRAND GENERALE 
ELECTRONIQUE SERVICES 
NEYRAL GES. Paris 
3, Bd Desaix 68 et 76, av. Ledru Rollin 
63000 CLERMONT FERRAND 75012 PARIS 


SHOP PHOTO 
33, rue Commandant Mouchotis 
75014 PARIS 


FNAC FORUM 
1, rue Pierre-Lescot 
75045 PARIS CEDEX 01 


UBRARIE EYROLLES 


61, Bd St Germain 
‘75240 PARIS CEDEX 05 


UBRAIRIE DUNOD 

30, rue SE cet 
75278 PARIS CEDEX 06 
CIMIZEN BAND 


31, Bd de la Mame 
76000 ROUEN 


28.0 € 

, FU e 

76200 ROUEN 

UBRARIE LESTRINGANT 


123, rue Ga Lederc 
76000 ROUEN 


FERRY LES PIERRES 


193, cours de la R 
76051 LE HAVRE 


TESDO SARTROMVILE 


UBRARIE BOUSQUET 
22, rue Edouart Barbey 
81200 MAZAMET 


aistire DELOCHE S.A 
21, rue de la R 

82000 MONTAUBAN 
UBRARIE GAY 


4, place de la Liberté 
83000 TOULON 


UBRARIE AMBLARD 
10-14, Portal Matheron 
84000 AVIGNON 


RC ELECTRONIC 

M MARTIN Robert 

53, rue Victor Hugo BP 12 
84100 ORANGE 


GIBERT J. UBRAIRIE 
9, rue Gambetta 
86000 POITIERS 


MAJUSCULE POITOU 
3, bis rue de l'Eperon 
86000 POITIERS 


UBRARIE 
DE L'UNIVERSITE 


70, Rue Gambetta — BP 109 
86003 POITIERS CEDEX 
UBRARIE BARADAT 


St Pierre 
87100 LIMOGES 


SDL 
25, route de Montargis 
89800 JOIGNY 


NIOCHAU-MARECHAL 

UBRARIE DU LYCEE 
100, Grande-Rue 

91160 LONGJUMEAU 


LCV 
130, rue de Corbeil Villemoisson s/Orge 
91360 D EPINAY SORGE 


LOISITECH 
Centre Terminal 93 
93106 MONTREUIL 


ORDI PLUS 


7, Camelnat 
GHÉOO AUENAY SBOIS 


BERTHET À SA 

UB. de la Grande Rue 

105, Grande Rue Ch. de Gaulle 
94130 NOGENT S/MARNE 


ORDIVIDUEL 
20, rue de Montreuil 
94300 VINCENNES 


LADNER SA 
175, av. du Général Leclerc 
94780 MAISON-ALFORT 


AVENA STE 
Square Colombia — BP 94 
95021 CERGY CEDEX 


UBRARIE POCHOTHEQUE 
LECUT Pierre 

2, rue de PE 

95120 ERMON 


TRI POUR BANKMANAGER 
POUR CPC 6128 


Les possesseurs de 6128 utilisant 
BANKMANAGER se sont peut-être déjà 
heurtés au problème de tri dans cette 
deuxième carte de 64 ko. 

En effet, les chaînes alphanumériques 
ainsi stockées ne sont plus indicées. 
‘’BANKMAN'’ gère un pointeur interne 
qui affecte un numéro d'enregistrement 
courant. C'est en utilisant ce pointeur 
qu'il sera possible de sélectionner et de 
trier les chaînes. 

Le programme ci-joint propose une 
démarche qui, j'espère, vous aidera à 
mettre de l’ordre dans vos fichiers et sus- 


Dominique BAUTZ 


citera de votre part des améliorations. 


EXPLICATIONS DU PROGRAMME 


Le programme de démonstration écrit 
l'alphabet phonétique international aéro- 
nautique dans BANKMAN. 

Le sous-programme de tri classe les dif- 
férentes chaînes, d’abord par ordre 
alphabétique (choix = 1), ensuite par 
ordre numérique (choix = 2). 

La ligne 310 lit la banque mémoire. 
La ligne 320 sauvegarde l'enregistre- 
ment et le pointeur lu précédemment. 


1O “HHHEMHHUNHEOMEODENOHCMEHEHEHEDE HE DE MEN NEE 


20 ‘+* TRI 
S0 ‘+ POUR BANEMANAGER 
40 ‘+ D. BAUTZ 


# 
# 
+ 


SO HOMCHHEUECHEHEHEHENEDEE EDEN DEEE DE DEEE JE 


60 MODE 2 
70 ON ERROR GOTO 559 
80 :BANKOPEN, 15 


90 rZ=i:deb=1:fin=26: enregistr/4=0:maxi=0 
100 LOCATE 2,10: PRINT"Demonstration des classements alphabetique et numerique de 


s chaines stockees 


dans bankmanager.'":PRINT3s;"l'ex 


emple tri et classe l'alphabet aeronautique ..." 
110 FOR ATTENTE=O TO SO0O:NEXT 


120 
1350 CLS 


140 FOR CREATION =1 TO 26 
150 LOCATE 40,10: PRINT'"Creation de la fiche 


169 READ b$ 


170 no$=STR$ (creation) +CHR$(32) 


180 


200 chaine$=no$+nom$ 


IF VAL (no$)<=9 THEN no$="O0"+RIGHTS (no$, 
190 nom$=UPPERS (LEFT$S (b$+STRINGS(10," "), 


10)) 


210 LOCATE 5,creation:PRINT chaine 


220 


240 maxiZ=enregistrx 
230 NEXT CREATION 
260 GOSUK 440 

270 
280 rZ=ûü:choix=1 
290 LOCATE 1, 


: BANKURITE ,@r%,chaine$,creation 
230 enregistr/=senregistr/+i 


24:PKRKINT'"Patience tri en cours..." 


300 ech=1:FOR TRI=1 TO maxiZ-i 


A8 


“"screation 


La ligne 330 lit l'enregistrement suivant. 
La ligne 360 compare la zone alphabéti- 
que de l'enregistrement pointé avec l’en- 
registrement initialement sauvegardé. 
La ligne 370 reclasse et réécrit s'il y a 
échange. 


Vitesse d'exécution 


Nombre d'éléments 26 50 100 


Temps (en secondes) 11,5: 35,6 180,3 


"RGCCCCECCCCCECCCCECECCECCECCECCCCCCCECCECECECECCECECEE CREATION DES FICHES 


2) ELSE no$=RIGHTS$(no$, 5) 


"CECCEGCCEGECCEGECECCCEGCCCCGCEGCCCEGECCGCECEGECECGEGE SOUS PROGRAMME DE TRI 


3510 :BANFREAD, GrZ,chaine$, TRI 
320 tampon$=chaine$:sa/=rx 

330 !:BANKREAD,@r4,chaine#,TRI+1 
340 IF*choix=i THEN 5860 


350 IF LEFT$(chaine$,2) >= LEFT$(tampon$,2) THIN 380 ELSE ech=0:G0TO 370 

360 IF MID$(chaine#,4,10)>= MID$(tampon$,4,10) THEN 380 ELSE ech=0 

370 :'HANKWRITE,@rZ,chaine$,rZ2-1::BANKWRITE, @sa, tampon, r2+i 

80 NEXT TRI 

390 IF ech=0 THEN 300 

400 GOSUKH 440 

410 IF choix=2 THEN 430 

420 choix=2:GOT0O 290 

430 END 

440 ‘GGRGGGCGGCACECCECCGECEGECCCEECGECCCECECECEGCGGGGEGCG AFFICHE BANKMANAGER 
450 CLS:PRINT"Voici le contenu de bankmanager ...." 

460 x=20:y=7 

470 FOR LECTURE=deb TO fin 

480 : BANKREAD,@r%,chaine$, lecture 

490 IF lecture=14 THEN x=45:y=7 

500 LOCATE x,y:PRINT chaines 

910 y=y+1 

520 NEXT LECTURE 

930 RETURN 

540 DATA LIMA, NOVEMBER, GOLF, ZOULOU, INDIA,FOX TROT, VICTOR, OSCAR, ALPHA, PAPA, SIERRA 
.MIKE, BRAVO, YANKEE , HOTEL , ECHO, TANGO, JULIETTE, DELTA, X 
—RAY,KILO,WHYSKI , QUEBEC, CHARLIE , ROMEO, UNIFORM 

550 ‘CECGECCGCOGCCGECCGGCEGERCGEACCEGEGCCGECGCECEGEGECEGGGGCEAGGG ERREUR CHARGEMENT 
560 CLS:LOCATE 2,10:PRINT"Vous n'avez pas charge bankmanager !!! (CPM plus face 
1) 

970 END 


nn 


PARTICIPEZ A CPC ! 


Remplissez soigneusement ce coupon et joignez-le à votre programme. Envoyez le tout à : 


CPC 

La Haie de Pan 

35170 BRUZ 
Le programmeur : 
Nom : Prénom: Age: 
Adresse complète : 
Le programme : 
NOM: Catégorie : [] Jeu OÙ Utilitaire 1 Educatif 
Taille : 2 Périphériques utilisés : 
Support : 
Compatibilité (testée) avec : [ 464 [] 664 [1 6128 [] PCW 8256 

[ PC 1512 [ PCW 8512 


Attestation sur l'honneur 


Je soussigné, = , déclare être l’auteur du programme ci-joint et ne l'avoir jamais proposé 
à une autre revue. 


Le : 1 / à : 


Signature : 


49 


STARWAR : RECTIFICATIF 


Une nouvelle calamité s'est abattue sur 
CPC ! Le programme STARWAR, livré 
par son auteur sur disquette, contenait 
un fichier binaire. Comme à l'habitude, 
nous avons voulu transposer ce binaire 
dans des lignes de DATA, en utilisant le 
programme de génération automatique 
de DATA de CPC n° 9. Mal nous en a 
pris car, vu la longueur du fichier binaire, 
la transposition s'est très mal effectuée. 
Rassurez-vous, il reste une porte de sor- 
tie que vous atteindrez en suivant les 
conseils et les directives ci-dessous. 
Nous avons fait le maximum pour que 
vous puissiez utiliser, en grande partie, 
le travail déjà effectué. Mais, il manquait 
tout de même près de 7k de binaire ! 
Attention ! STARWAR ne tourne pas sur 
CPC 464. Si vous avez tapé le pro- 
gramme de CPC n° 19 contenant la lon- 
gue liste de DATA, vous avez dû remar- 
quer que la boucle de chargement était 
absente. Nous la reproduisons ci-après. 
Elles est d'ores et déjà modifiée comme 
il se doit, afin de tenir compte de ce rec- 
tificatif (voir listing 1). 

Le listing de DATA devra être coupé 
avant la ligne 2200. Pour ce faire, sau- 
vegardez l'ensemble sous le nom 
‘’STARDATA‘"" sur une disquette ou cas- 
sette de travail. 

Faites ensuite DELETE 2200. 

Il reste alors les lignes 100 à 2195. Y 
ajouter les lignes du listing 1. 
Sauvegardez l'ensemble (lignes 10 à 
2195) sous le nom ‘'DATAO’’. 

Faites RUN et, s’il n'y a pas d'erreur, fai- 
tes ensuite : 

SAVE ‘’CODEO"',B,26128,6720. 
Rechargez ensuite ‘’STARDATA"'. 
Supprimez les premières lignes par 
DELETE - 2200. 

Il doit rester les lignes 2200 à 3060. Fai- 
tes DELETE 3065-. . 

Faites RENUM 100,2200,5. 


Vous avez devant vous les lignes 100 à 
960. 

Ajoutez le listing 2 et sauvegardez l’en- 
semble sous le nom ‘’DATA1’. 

Faites RUN. Pas d'erreur ? Sauvegardez 
sous le nom ‘CODE 1'’,B,32848,2768. 
Le plus dur reste à faire ! Tapez le listing 
n° 4... 

Sauvegardez-le sous le nom ‘’DATA2". 
Un coup de RUN. Toujours pas d'erreur ? 
Sauvegardez sous le nom 
“’CODE2’",B,35616,6994. 

Tapez maintenant le listing 3. Il va ser- 
Vir à rassembler les 3 morceaux de code 
machine CODEO, CODE1, CODE2 en un 
seul et unique ‘’STARWAR.BIN'’ qui 
occupera 17k de mémoire entre les 


Listing 1 


adresses 26128 et 42609. La sauve- 
garde de cette partie est automatique : 
prévoyez la cassette où la disquette en 
conséquence. 

Sur une disquette, vous aurez donc les 
programmes suivants : 

— STARWAR (listing en encadré page 
68 CPC n° 19). 

— STARWAR.BIN (généré par les opé- 
rations ci-dessus). 

— BASIC (listing des pages 64 à 68 de 
CPC n° 19). 

Attention ! Sur cassette, les programmes 
devront se suivre dans cet ordre. 
Avec toutes nos excuses pour les tracas 
que nous vous aurons occasionnés |! 
Amusez-vous bien avec STARWAR... 


10 A=26128:F=32847:Lm100:WHILE A<=FIFOR A=A TO A+1S:READ CS: KæVAL ("Re +08) 1 Sm=S+K+ 


65536#(S+K>232767):1F A<=F THEN FOKE A,K 


20 NEXT:READ D$: T=VAL("&"+D$):1F TC>S THEN PRINT CHR$(7) "Erreur ligne";L:END EL 


SE L=L+5:WEND 


Listing 2 


S S=8&45BB 


10 A=32848:F=3%615:Lm=100:WHILE A<=F:FOR A=A TO A+1S1READ C8: K=VAL ("&"+C8) 1 S=S+K+ 


65536#(S+K2>32767):1F A<=F THEN POHE A,K 


20 NEXTIREAD D$: TæVAL("&"+D$#)31F T<>S THEN FRINT CHR#(7)5"Erreur ligne";L:END EL 


SE L=L+5:WEND 


Listing 3 


10 MEMORY &6610-1 

29 LOAD “codeQ" 

TO LOAD “codel" 

40 LOAD “code2" 

50 SAVE “starwar",b,k6610,8&4061 


Listing 4 


19 A=3S616:F=42609:L=100:WHILE A<=F:FOR AzA TO A+IS:READ CS: km VAL ("U"+CS$) 1 SmS+K+ 


65536#(S+K>32767):1F A<=F THEN FOKE A,k 


20 NEXT:READ D$:1T=VAL("&"+D#)11F TC>S THEN FRINT CHRS (7); "Erreur ligne"}L:END EL 


SE LeL+S:WEND 


DATA 0A,00,19,D1,ED,80,21,FE,8C,35,C9,00,00,00,00,00,05%57 195 DATA 
105 DATA EB,E6,07,3C,4F,34,70,A6,47,1A,EE,FF,A6,77,23,13,0C8B | 200 DATA 4F,20,04,CB,02,CB,02,72,C9, 
110 DATA 10,F7,3A,72,06,3D,C8, 32,72,6,0D,20,08,0E,08,C5,1243 | 205 DATA 00,00,00,00,00,09,00,00,00, 
115 DATA 01,4F,CB,18,04,C5,01,00,08,09,ED,4B,70,06,0B,23F,16E6 À 210 Daïa 
129 DATA ED,42,C1,18,D0,09,00,00,00,00,00,00,00,009, 00,00, 19BE 215 DATA 6E,A6,D1,E1,09,00,00, Qc 
125 DATA 00,00, 00,00, 00, 00,00, 00,00,00,00,09,00,00,00,00,19BE À 220 DATA 
130 DATA E6,07,3C,4F,3A,70,6,47,1A,B6,12,2%,13,10,F9,2A,1F28 À 225 DATA 
135 DATA 72,46, 3D,C8, 32, 72,46, 01, 20,08,0E,08,C5,01,4F,C8,24B7 239 DATA 
140 DATA 18,04,C5,01,00,08,EB,09,ED,4B,70,A6,0B,3F,ED,42,2A5C À 235 DATA 00,00,00,00,00,00,00. 00,0 
145 DATA EB,C1,18,D0,00,00,00,00,00,00,00,09,00,00,00,00,2CF0 249 DATA 00,00, 00,00,00, 00,00 
150 DATA 00,00, 00,00,00, 00,00,00,00,00,00,00,00,00,00,00,2CF0 À 245 DATA 00,00,00,00,00, 0 
155 DATA DD,ES,06,03%,C5,DD,21,5D,93,CD,80,8C,2A,6F,A6,E6,357C À 250 DATA 
160 DATA 3F,FE,3B,30,02,CB,27,E6,FE,SF,16,00,DD,19,DD,6E,3CB2 À 255 DATA 
165 DATA 00,DD,66,01,3A,6€,A6,1F,1F,E6,0%,5F,3E,01,32,78,41B% 260 DATA 
179 DATA A6,CD,20,8C,C1,19,CD,DD,E1,C9,00,00,00,00,00,00,47F7 2653 LATA 
175 DATA 00,00,00,00,00,00,00,00,00,00,00, 00,00, 00, 00,00,47F7 279 DATA 
189 DATA 56,E5,CB,4F,20,04,CB,0A,CB,0A,FS,21,B0,8F,74,E6,4FCF À 275 DATA 
185 DATA 33,4F,06,00,7E,EH9,28,04,23,04,18,F8,F1,CB,47,20,5514 289 DATA 
199 DATA 04,78,E6,03,CB,03,CE,03,B3,18,04,78,E6,0C,B3,C6,5BCD Ÿ 285 DATA 


80,6F,26,68F,7A,E8,CC,57,7E,82,57,3A,78,4A6,E1,CB, à4AF 
10, 00,9 ,00,67F7 
00,00, ,20,67F7 
ES,DS,24,6E,46,23,54,5D,29,29,19, ,19,29,19,22,6CD4 
00,00,00, 00,00,00, 00,00, 7063 
00,00,00,00, 00,00,00, 00,00, 00,00, 00 : 00,00, 00, 00,7063 
00,00, 00,00,00,00,00,00,00,00,00,00,00, 00,00,00,7063 
00,09,00,00,00,00,00,00,00,00,09,00 ,29,00,7063 
,00,00,7063 
DO, 00,00, 00 
C ,28,0S,74,D3, 
05,Cé6,D5,00,00,00,30,00,08,60, 00,60, 01,0C, 70,00, 7401 
41,88,08,9C,00,11,4C,59,4C,00,00,HF,EF,68,00,00, 7966 
66,BB,00,00,02,44,99,02,00,07,7F,FF,0F,00,02,44,7D42 
99,02, 00,00,66, BB, 00, 00,00, HE ÇEr, Bu, ut, 11,41, 1%, Bin 
4C,00,41,88,08,9C,00,60,01,00,29,00,30,00,08,60,B498 
00, 10,80,04,30,00,10,00,0€,10580,20,4C,04,46, 80,876 
11, 4H,00,01,8R2F 
n0,00,22,8F19 


09,00,0 


09,AË,04,AË,00,00,57,FF,4C, 00,00, 7 
22,AA,89,00,03,2E,44,8F,0B,01,22,ñn,n. 


299 
295 
309 
305 
319 
315 
320 
325 
330 
3TS 
349 
345 
359 
355 
360 
365 
370 
375 
380 
385 
399 
395 
409 
405 
419 
415 
429 
425 
439 
435 
440 
445 
450 
455 
460 
4685 
470 
475 
480 
485 
490 
495 
500 
505 
519 
515 
529 
525 
530 
535 
549 
545 
550 
555 
560 
565 
570 
575 
580 
595 
590 
595 
CU) 
605 
CAN 
615 
629 
625 
CRT 
625 
é64ù 
645 
6359 
655 
66) 
665 
67) 
675 
680 
685 
6970 
695 
709 
705 
719 
715 
720 
725 
730 
735 
740 
745 
750 
755 
760 
765 
770 
775 
789 
785 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DarA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
LAIA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


11,8B,00,00,37,FF,4C,00,00,AE,04,AE, 00,20, 4C,04,9324 


46,80,30,00,0E, 10,80, 10,80,04,30,00,00,C0,02,10,964E 
80,10,80,07,00,C0,10,26,02,23,40,00,57,02,57,00,9970 
00,23,FF,AE,00,00,11,88,CC,00,00,19,55,44,08,01,9D60 
1F,22,47,0C,00,19,55,44,08,00,11,88,CC, 00,00,23,A076 
FF,4E,00,00,57,02,57,00,10,26,02,23,40,10,80,07,A3CS 
09,C0,00,C0,02,10,80,00,60,01,00,C0,00,C0,03,08,A7C3 
60,00,93,01,11,28,00,23,89,23,88,00,11,7F,DF,00,ABB6 
09,00, DD,66,90,00,04,99,22,04,00,0F,FF,EF,0E,00,AFC7 
04,99,22,04,00,00, DD,66,00,00,11,7F,DF,00,00,23,B35F 
89,23,88,00,93,01,11,28,00,C0,03,08,60,00,60,01,B6EC 
00,C0,7F,CF,4F,4F,4F,4F,4F,4F,4F,CF,4F,CF,7F,CF, BESE 
OF,O0F,0F,6F,0F,BF,0F,6F,0F,68F,1F,8F,1F,68F,1F,8F,C2FE 
OF,O0F,7F,CF,OF,4F,0F,4F,7F,CF,6F,0F,6F,0F,7F,CF,CBBE 
OF, 0F,7F,CF,0F,4F,0F,4F,1F,CF,O0F,CF,OF,CF,7F,CF,CEDE 
OF,0F,4F,0F,4F,0F,4F,68F,4F,6F,7F,CF,1F,68F,1F,8F,D41E 
OF, OF, 7F,CF,4F,0F,4F,0F,7F,CF,OF,CF,OF, CF, 7F,CF, DA9E 
OF, O0F,7F,CF,4F,0F,4F,0F,7F,CF,6F,4F,6F,4F,7F,CF,EO0DE 
OF,0F,7F,CF,OF,4F,0F,8F,1F,OF,2F, OF, 3F, OF, 3F,OF,E45E 
OF,0F,3F,CF,2F,4F,2F,4F,7F,CF,4F,CF,4F,CF,7F,CF,ERSE 
0F,0F,7F,CF,4F,4F,4F,4F,7F,CF,0F,CF,OF, CF, 7F,CF,F25E 
OF,0F,00,00,00,FE,01,FE,02,FE,02,FF,02,00,02,01,F67F 
02,02,01,02,00,02,FF,02,FE,02,FE,O1,FE, O0,FE,FF,FCB83 

ÿ El »,80,00,00FC 
60,00,80,00,10,90,00,C0,00,50,230,00,00,30,40,00,042C 
00,F0,80,00,239,30,40,00,C0,50,30,00,00,80,80,C0,097C 
09,89,89,09,19,00,40,00,20,00, 40,0 :00,0C,O0AFB 
00,00,00,00,01,0F,00,00,00,03,01,0F,08,00,00,0F,0B22 
08,1F,0C,00,01,0F,0F,3E,8F,08,01,0F,4F,7D,0F,0C,O0DS3 
03,0F,ER,7D,7F,0F,17,6F,FD,E9,F8,68F,17,FF,FD,F8,1679 
F3,0€,17,F7,FC,FO,OF,OE,03,FC,FC,F0,F1,AF,0B,7E, 1FAS 
FO,F0,768,EB,07,7F,FE,FO0,FE,Cé,03,0F,FC,F8,DF,8E, 2493 
0S,3F,F9,FB,ES,0C,03,5E,E7,EB,EB,00,00,3F,68F,7D, 3201 
4F, 00,00, 03,0E,2F,0E, 00,00, 01,0E,06,04,00,00,01,32E8 
0C,02,00,00,00,07,01,06,02,00,00,07,01,06,02,00,32E6 
00,10,01,11,20,30,21,31,02,12,03,13,22,32,27,33,2%47E 
90,00,00,80,FF,FF,00,00,FF,F1,00,00,00,00,00,00,38F9 
pr 1, 00,00, 00,00,04,00,00,04,06,05,05,05,05,391B 
04,05,05,04,06,06,06,06,06,06,05,06,06,06, 9S,04,3971 
05,05, ru 06,06,05,04,00,00,00,00,00,00,00, 00,3996 
09,00, 00, 00,009, 00,00,00,00,00,00,09,00,00, 10,3996 
00, 00,00, 00, 00, 00, 00, 00,00, 00,00, 00,00, 00, 00, 00, 3996 
09, 00,00,00,00,00, 00, Rs co, 00, ü9, 09, 00, 00, 09, 3996 
09,00, 00,00, 00,00,00 
00,00,00,00, 00,00, 0 


00, 3996 


* * oc 00 L 00, : 00, L O0, É € D . 00 , 


00,00,00,00,00,00,00, OÙ, 00, *oo, 00,00, 00,00,00,00,3996 
00,90,00,00,00,00, 


00,90, 00, 00,00,00,00,00,00,00,7996 
D ne 


"00! 00, cn 00 , € ‘00, 1996 
AA QU 00, 00, 00, 00, 06, 00,00 00, 00, 00, 39986 
[M] 1,00, 09, 00,00,00, 09,00, 00, 3996 
DOS O0 00,00,04,HE,278,14,DA,23B7E 
94,02,03,03, 02,04, 4F, 0E,68,C8,06,06,01,01,03,04,3D32 
78,40,52,D4,04,02,07,01,04, 05,21, 7E,RD,CC,06,0C,4163 
02,01,01,05,45, 5€, B6, CE, 06,06, 03, 02, 01, 04, BA, 3B, 4418 
07,F2,01,09,07,02,02,05,D5,46,7A,CE,06,0D,07,03,4826 
01,05,F9,81,F3,E4,03,09,04,04,01,05,00,68,F2,85,4D76 
ES,3A,C4,73,E4,7C,C1,68,F2,85,E3,2A,C4,73,E4,7C,577E 
C1,68,F2,85,E3,34,C4,73,E4,7C,C1,68,F2,85,E3,34,616F 
C4,73,E4,7C,C1,68,F2,85,E3,%A,C4,73,E4,7C,C1,68,6BA3 
F2,05,E3,34,C4,73,E4,7C,C1,68,F2,85,E3,1A,C4,73,75C2 
É4,7C, C1,68,F2,85,E3,34,C4,73,E4,7C,C1,68,F2,85,B016 
ES, :A, C4,73,E4,7C,C1,68,F2,85,E3,7A,C4,73,E4,7C,8A1E 
C1,68,F2,85,E3,34,C4,73,E4;7C, CI, 68, F2,85,E3, 24, 942F 
C4.73,€4,7C.C1,68,F2,85,E3,7A,C4,73,E4,7C,C1,68,9E43 
+2,69,E8,3A,04,/3,E4,/C,L1,68,F2,895,ES,3A,C4, 73,662 
E4,7C,C1,68,F2,85,E3,3A,C4,73,E4,7C,C1,68,F2,85,B2B6 
E3,3A,C4,73,E4,7C,C1,68,F2,85,E3,34,C4,73,E4,7C,BCHE 
C1,68,F2,85,E3,3A,C4,73,E4,7C,C1,68,F2,85,E3, 3A,C6CF 
C4,73,E4,7C,C1,68,F2,85,E3,3%A,C4,73,E4,7C,C1,68,D0E3 
F2,85,E3,3A,C4,73,E4,7C,C1,68,F2,85,E3,3A,C4,73, DBO2 
E4,7C,C1,68,F2,85,E3,3A,C4,73,E4,7C,C1,68,F2,85,E556 
E3,%A,C4,73,E4,7C1C1,68,F2,85,E3,2:A,C4,73,E4,7C\EFSE 
C1,68,F2,85,E3,3A,C4,73,E4,7C,C1,68,F2,85,E3,3A,F96F 
C4,73,E4,7C,C1,68,F2,85,E3,7A,C4,73,E4,7C,C1,68,0383 
F2,85,E3,3A,C4,73,E4,7C,C1,68,F2,85,E3,3A,C4,73,0DA2 
E4,7C,C1,68,F2,85,E3,3A,C4,75,E4,7C,C1,68,F2,85,17Fé6 
ES,SA,C4,73,E4,7C,C1,68,F2,85,E3,3A,C4,73,E4,7C,21FE 
C1,66,F2,85,E3,3A,C4,73,E4,7C,C1,68,F2,85,E3,3A,2C0F 
C4,73,E4,7C,C1,68,F2,85,E3,2%A,C4,73,E4,7C,Ci,68,3623 
F2,85,E3,3A,C4,73,E4,7C,C1,68,F2,85,E%,34,C4,73,4042 
E4,7C,C1,68,F2,85,E3,2A,C4,73,E4,7C,C1,68,F2,85,4496 
ES,3A,C4,73,E4,7C,C1,68,F2,8SES,3A,C4,73,E4,7C,549E 
C1,68,F2,85,E3,3A,C4,77,E4,7C,C1,68,F2,85,E3,3A,S5EAF 
C4,73,E4,7C,C1,68,F2,85,E3,3A,C4,73,E4,7C,C1,68,68C3 
F2,85,E3,3A,C4,73,E4,7C,C1,68,F2,85,E3,2A,C4,73,72E2 
E4,7C,C1,68,F2,85,E3,:A,C4,73,E4,7C,C1,68,F2,85,7D36 
ES,TA,C4,73,E4,7C,C1,68,F2,85,E3,3A,C4,73,E4,7C,873E 
C1,68,F2,85,E3,3A,C4,73,E4,7C(C1,68,F2,85,E3,34,914F 
C4,73,E4,7C,C1,68,F2,85,E3,3A,C4,73,E4,7C,C1,68,9B63 
F2,85,E3, 34, C4,73,E4,7C,C1,68, F2,85, ES,3A,C4,73,A582 
E4,7C,C1,68,F2,85,E3,34,C4,73,E4,7C,C1,68,F2,85, AFD6 
E3,34,C4,73,E4,7C;C1,81,C8,DE, CC, CF, CO,EO,ES, 6D, BAFF 
FC,F2,ES,EB,E9,54,E4,E9,C3,D6,C5,C7,F8,10,DA,DS,C7A1 
DE, 8A,CD,A3,FC, 1C,F4,D1,CC,EE, CC, BF,F0,00,C9,AD,D301 
CS,E2,C8,1B,D7,54,F9,09,E6,6E,C9,67,E8,98,FA,ES, DD99 
EC,F2,D3,93,D4,8C,ES,81,F3,4E,E8,BF,EC,90,F3,1D,E975 
D1,C2,D4,CB,C0,C4,DD,51,F3,26,C4,68F,CC, D8, DC, K5,F4FA 


790 
795 
800 
805 
819 
815 
829 
825 
839 
8zs 
840 
845 
859 
855 
860 
865 
879 
875 
880 
885 
890 
895 
900 
905 
910 
915 
920 
925 
920 
935 
940 
945 
959 
955 
960 
965 
970 
975 
980 
985 
999 
995 
1009 
1005 
1019 
1015 
1020 
1025 
1030 
1035 
1040 
1045 
1050 
1955 
1060 
1065 
1070 
1075 
1080 
1085 
1090 
1095 
1100 
1105 
1110 
1115 
1120 
1125 
1120 
1135 
1140 
1145 
1159 
1155 
1160 
1185 
1170 
1175 
1180 
1185 
1190 
1195 
1200 
1205 
1210 
1215 
1220 
1225 
1230 
1235 
1240 
1245 
1250 
1255 
1260 
1265 
1270 
1275 
1280 
1285 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
‘DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA’ 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


F9,8A,D3,03,DA,0C,EF,01,F4,3E,EB,FF,C3,30,CD,8D,FE92 

EB,22,D0,EB,F2,0B,0A,38,0D,00,20,00,00,00,20,00,02E6 

00,00,20,00,00,00,77,00,00,00,FF,88,00,00,FF,88,068B 

00,11,FF,CC,00,22,FF,AA,00,00,FF,88,00,00,02, 00,0BEB 

00,00,07,00,00,00,0F,08,00,00,00,00,00, 00, 10,00,0BE9 

00,00! 10, 00! 00! 00! 10, 00, 00, 00! 33, 88, 00, 00, 77, CC, 0EO7 

00,00,77,CC,00,00,FF,EE,00,11,77,DD,00,00,77,CC, +3SDF 

00,00,01,00,00,00,03,08,00,00,07,0C,00,00,00,00,13FE 

00,00,00,80,00,00,00,809,00,00,00,80,00,00,11,CC, 165R 

00,00,33,EE,00,00,33,EE,00,00,77,FF,00,00,BB,EE, 1BBC 

88,00,33,EE,00,00,00,08,00,00,01,0C,00,00,03,0E, 1D8B 
00,00, 00,00,00,00,00,40,00,00,00,40,00,00,00,40,1E4B 

00,00,00,EE,00,00,11,FF,00,00,11,FF,00,00,33,FF,228B 
88,00,55,FF,44,00,11,FF,00,00,00,04,00,00,00,0E,25CD 
00,00,01,0F,00,00,00,00,00,00,00,20,00,00,00, 40, 263D 

00,00,00,40,00,00,77,88,00,33,FF,88,00,00,FF,88, 2ABD 
00,11,FF,88,00,11,FF,CC,00,00,FF,44,00,07,2A,44,2FE9 
00,03,08,00,00,00,0C,00,00,00,00,00,00,00,00, 10, 3010 
00,00,00,29,00,00,00,20,00,00,33,CC,00,11,FF,CC, 332B 
00,00,77,CC,00,00,FF,CC,00,00,FF,EE,00,00,77,AA,3947 

00,03,1D,22,00,01,0C,00,00,00,06,00,00,00,00,00,399C 
00,00,00,00,80,00,00,10,00,00,00,10,00,00,11,EE, SR3B 
090,00,FF,ÉE,00,00,33,EE,00,00,77,EE,00,00,77,FF, 4124 
00,00,33,DD,00,01,0E,99,00,00,0E,00,00,00,03,00,42ED 
00,00,00,00,00,00,00,00,40,00,00,00,80,00, 00,00, 4TAD 
80,00,00,FF,00,00,77,FF,00,00,11,FF,00,00,33,FF, 48E4 

00,00,33,FF,88,00,11,EE,88,01,0E,44,88,00,0E,00, 4D0E 

00,00,03,00,00,00,00,00,00,00,00,00,00,00,00,10,4D21 

00,00,00,20,00,00,33,C8,00,33,FF,CC,00,00,FF,CC, 5205 

00,11,FF,CC,00,00,FF,88,00,07,7F,88,00,03,2A,88,572B 

00,01,08,88,00,00,08,00,00,00,00,00,00,00,00,00,57C4 

00,00,00,00,80,00,00,10,00,00,11,EC,00,11,FF,EE,5B4F 

00,00,77,EE,00,00,FF,EE,00,00,77,CC,00,03,3F,CC, 60F2 

00,01,1D,44,00,00,0€,44,00,00,04,00,00,00,00,00,61A8 

00,00,00,00,00,00,00,00,40,00,00,00,80,00,00,FE, 6366 

O00,00%,FF,FF,00,00,33,FF,00,00,77,FF,00,00,33,EE, 692D 

00,01,1F,EE,00,00,0E,AA,00,00,06,22,00,00,02,00,6B1D 

00,00,00,00,00,00,00,00,00,00,00,00,20,00,00,00,6B3D 

40,00,00,77,80,00,77,FF,88,00,11,FF,88,00,33,FF,712%C 

88,00,11,FF, 00,00, 0F,FF,00,00,07,55,00,00,03,11,/452 

00,00,01,00,00,00,00,00,00,00,00,00,00,00,00,00,7453 

00,00,00,00,80,11,CC,30,00,00,77,CC,00,00,FF,CC,78EE 

00,11,FF,CC,00,04,FF,CC,00,07,FF,88,00,03,66,88,7F18 
00,03,00,88,00,01,00,00,00,00,00,00,00,00,00,00,7FA4 
00,00,00,00,00,00,00,00,40,00,EE, 10,80,00,33,EE, 8283 
00,00,77,EE,00,00,FF,EE,00,02,77,EE,00,03,7F,CC, 8884 
09,01,3B,44,00,01,08,44,09,00,08,00,00,00,00,00,895F 
00,00,00,00,00,00,00,00,00,00,00,00,20,00,77,00,89F6 
C0,00,11,FF,00,00,33,FF,00,00,77,FF,00,01,33,FF,BFAL 
00,01,3F,EE,00,00,1D,AA,00,00,0C,22,00,00,04,00,91C8 
00,00,00,09,00,00,00,00,00,00,00,00,00,00,00,00,91C8 
19,00,33,88,60,00,00,FF,88,00,11,FF,88,00,33,FF,9744 
88,00,19,FF,88,00,1F,FF,00,00,06,DD,00,00,06,11,9B84 
00,00,02,00,00,00,00,00,00,00,00,00,00,09,00,00,9B86 
00,00,44,00,00,00,22,09,00,04,FF,88,00,06,FF,CC,9F48 
00,07,FF,FC,80,06,FF,CC,00,04,FF,8B,00,00,22,00,A548 
00,00, 44,00,00,00, 00,00, 00,00,00,00,00, 00,00, 00,A58C 
00,00,00,00,00,00,22,00,00,00,11,00,00,02,77,CC, A704 
00,03,77,EE,00,03,7F,FE,C0,03,77,EE,00,02,77,CC, AD59 
60,00! 11,00, 00, 00! 22,00, A0, 00, 00,00, 00, 00:00! 00, ADBC 
00,00,00,00,00,00,00,00,00,00,11,00,00,00,00,88,AE25 
00,01,33,EE,00,01,3B,FF,00,01,3F,FF,E0,01,3B,FF,B3DC 
00,01,33,EE,00,00,00,88,00,00,11,00,00,00,00,00,B597 
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,88,B61F 
00,00,00,44,00,00, 19,FF,00,00,1D,FF,88,00,1F,FF, BAD 
F8,00,1D,FF,88,00,19,FF,00,00,00,44,00,00,00,88, BEBD 
00,00,00,00,00,00,00,00,00,00,00,00,00,01,00,00,BEBE 
00,03,00,88,00,03,66,88,00,07,FF,88,00,04,FF,CC,C397 
00,11,FF,CC,00,00,FF,CC,00,00,77,CC,00,11,CC, 30,C98Ë 
00,00,00,00,80,00,00,00,00,00,00,00,00;00,00,00,CACE 
00,00,08,00,00,01,08,14,00,01,3B,44,00,03,7F,CC,CC31 
00,02,77,EE,00,00,FF,EE,00,00,77,EE,00,00,33,EE, D20B 
00,00,€E,10,80,00,00,09,40,00,00, 00,00, 00,00, 00, D3C9 
00,00,00,00,00,00,04,00,00,00,0C, 22,00, 00, 1D,AA, D4C2 
00,01,3F,EE,00,01,33,FF,00,00,77,FF,00,00,33,FF,D9CB 
00,00,11,FF,00,00,77,00,C0,00,00,00,20,00,00,00,DC32 
00,00,00,00,00,00,00,00,00,00,92,00,00,00,06,11,DC4B 
00,00,06,DD,00,00,1F,FF,00,00,19,FF,88,00,33,FF,E11E 
88,00,11,FF,88,00,00,FF,88,00,33,88,60,00,00,00,E5E0 
10,00,00,00,00,00,00,00,00,00,00,00,00,00,08,00,E5F8 
00,01,08,88,00,03,2A,88,00,07,7/F,88,00,00,FF,88,E9D3 
00;11,FF,CC,00,00,FF,CC, 00,33,FF,CC,00,00,33,C8,F073 
00,00,00,20,00,00,00,10,00,00,00,00,00,00,00,00,F0A3 
00,00,04,00,00,00,0€,44,00,01,1D,44,00,03,3F,CC,F267 
00,00,77,CC,00,00,FF,EE,00,00,77,EE,00,11,FF,EE,F8FA 
00,00,11,ÉC,00,00,00,10,00,00,00,00,80,00,00,00,FA87 
00,00,00,00,00,00,02,00,00,00,06,22,00,00,0E,AA,FB69 
00,01,1F,EE,00,00,33,EE,00,00,77,FF,00,00,33,FF, 0040 
00,00,FF,FF,00,00,00,FE,00,00,00,00,80,00,00,00,03RC 
40,00,00,00,00,00,00,00,00,00,01,09,00,00,03,11,0411 
00,00,07,55,00,00,0F,FF,00,00,11,FF,00,00,33,FF,07BD 
88,00,11,FF,88,00,77,FF,88,00,00,77,80,00,00,00,0CD2 
40,00,00,09,20,00,00,00,00,00,00,00,00,00,0C,00,0D3E 
00,03,08,00,00,07,2A,44,00,00,FF,44,00,11,FF,CC, 10DD 
00,11,FF,88,00,00,FF,88,00,33,FF,88,00,00,77,88,16B5 
00,00,00,40,00,00,00, 40,00,00,09,20,00,00,00,00,1755 
00,90,06,00,00,01,0C,00,00,03, 1D,22,00,00,77, AA, 18CB 
00,00,FF,EE,00,00,FF,CC,00,00,77,CC,00,11,FF,CC,1FA2 
90,00,33,CC,00,00,09,20,00,00,09,29,00,00,00,10,20F1 
00,00,00,00,00,00,0%,00,00,00,0E€,00,00,01,0E,99,21AA 
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1290 
1295 
1300 
1305 
1310 
1315 
1320 
1325 
1330 
1335 
1340 
1345 
1350 
1355 
1360 
1365 
1370 
1375 
1380 
13:85 
1390 
1795 
1400 
1405 
1410 
1415 
1420 
1425 
1430 
1435 
1440 
1445 
1450 
1455 
1460 
1465 
1470 
1475 
1480 
1485 
1490 
1495 
1500 
1505 
1519 
1915 
1520 
1525 
1530 
1525 
1540 
1545 
1550 
1555 
1560 
1565 
1570 
1575 
1580 
1585 
1590 
1595 
1600 
1605 
1610 
1615 
1620 
1625 
1630 
1635 
1649 
1645 
1650 
1655 
1660 
1685 
1670 
1675 
1689 
1685 
1690 
1695 
1700 
1705 
1710 
1715 
1720 
1725 
1730 
1735 
1740 
1745 
1750 
1755 
1760 
1765 
1779 
1775 
1780 
1785 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
LATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
pATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
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00,00,33,DD,00,00,77,FF,00,00,77,EE,00,00,33,EE, 26B6 
00,00,FF,EE,00,00,11,EE,00,00,00,10,00,00,00,10,29C2 
00,00,09,00,80,00,00,00,00,00,01,08,00,00,07,00,2A52 
00,00,0F,44,88,00,11,EE,88,00,33,FF,88,00,33,FF,2FA0 
00,00,11,FF,00,00,77,FF,00,00,00,FF,00,00,00,00,3325 
80,00,00,00,80,00,00,00,40,00,00,00,00,00,0F,08,347C 
00,00,07,00,00,00,02,00,00,00,FF,88,00,22,FF,AA,37D7 
Q0,11,FF,CC,00,00,FF,88,00,00,FF,88,00,00,77,00,3D38 
00,00,20,00,00,00, 20,00, 00,00,20,00,00,00,00,00,3D98 
00,00,07,0C,00,00,0%,08,00,00,01,00,00,00,77,CC, 3EFA 
09,11,77,DD,00,00,FF,EE,00,00,77,CC,00,00,77,CC, 44D2 
00, UU, 33,88, 00,00, 10,00, 00,09, 10,00, 00,00, 10,00,45BD 
00,00,00,00,00,00,03,0E,00,00,01,0C,00,00,00,08,45E3 
00,00,33,EE,00,00,BB,EE,88,00,77,FF,00,00,33,EE, 4BCC 
00,00,33,EF,00,00,11,CC,09,09,00,89,00,00,00,80,4ECA 
00,00,00,80,00,00,00,00,00,00,01,0F,00,00,00,0E,4F68 
00,00,00,04,00,00,11,FF,00,00,55,FF,44,00,23,FF, 5346 
88,00,11,FF,00,00,11,FF,00,00,00,EE,00,00,00,40,571C 
00,00, 00, 40, 00, OU, 00, 40, 00,00, 09, 00,09, 00, 01,08,57A5 
00,00,00,0E,00,11,22.0F,00,11,77,88,00,11,FF,CC, SAE1 
00,00,FF,CC,00,00,FF,88,00,00,FF,EE,00,00,FF,00,611F 
00,10,00,00,00, 10,00,00,00,20,00,00, 0 D,00,00,615SF 
00,00,00,0C,00,00,00,07,00,00,99,07,08,00,EB,CC, 63A1 
00,00,FF,EE,00,00,77,EE,00,00,77,CC,00,00,77,FF, 69AC 
0,00,77,88,00,00,80,00,00,00,80,00,00, 10,00, 00, 6BBB 
00,00,00,00,00,00,00,06,00,00,00,03,08,00,44,8B,6C9B 
0C,00,55,EE,00,00,77,FF,00,00,33,FF,00,00,33,EE,71B3 
00,00,33,FF,88,00,33,CC,00,00,40,00,00,00,40,00,74EC 
00,00,80,00,00,00,00,00,00,00,00,0%,00,00,00,01,7570 
0C,00,22,45,0E,00,22,FF,00,00,33,FF,88,00,11,FF,79DC 
88,00,11,FF,00,00,11,FF,CC,00,11,EE,00,00,20,00,7E6F 
00,00,20,00,00,00,40,00,00,00,00,00,00,00,00,08,7ED7 
00,00,88,0C,00,00,AA,0E,00,00,FF,0F,00,00,FF,88,82E8 
00,11,FF,CC,00,11,FF,88,00,11,FF,EE,00,10,EE,00,8928 
00,29,00,00,00, 40, 00,00,00,00,00,00,00,00,00,00,8988 
00,00,00,04,00,00,44,06,00,00,55,07,00,00,77,68F,8B38 
08,00,77,CC,00,00,FF,EE,00,00,FF,CC, 00,00,FF,FF, 9239 
00,00,F7,00,00,10,00,00,00,20,00,00,00,00,00,00,9360 
00,00,00,00,00,00,00,02,00,00,22,03,00,00,22,8B,9434 
08,00,33,CF,0C,00,33,EE,00,00,77,FF.,00,00,77,EE,9946 
00,00,77,FF,88,00,73,88,00,00,80,00,00,10,00,00,9CCF 
00,00,00,00,00,00,00,00,00,00,00,01,00,00,11,01,9CE2 
08,00,11,45,0C,00,11,EF,0E,00,11,FF,00,00,33,FF,A09C 
88,00,33,FF,00,00,33,FF,CC,00,31,CC,00,00,40,00,A591 
00,00, B0,00,00, 00, 00,00, 00,00 ,00,00,00,00,00,04,4615 
00,00,88,06,00,00,BB,06,00,00,FF,8F,00,11,FF,89,AABB 
00,11,FF,CC, 00,11,FF,88,00,11,FF,00,00,60,11,CC, B04C 
00,80,00,00,90,00,00,00,00,00,00,00,00,00,00,00, BOCC 
00,00,00,02,00,00,44,0%,00,00,55,8B,00,00,77,CF,B33R 
08,00,FF,CC,08,00,FF,EE,00,00,FF,CC, 00 ,FF,88,HASS 
00,30,00,EE,00, 40, 00,00, 00,00,00,00,00,00,00,00, BBE3 
00,00,00,00,00,00,00,01,00,00,22,01,08,00,22,CD,BCCE 
08,00,33,EF,0C,00,77,EE,04,00,77,FF,00,00,77,EE,C248 
00,00,77,CC,00,10,80,77,00,20,00,00,00,00,00,00,C4B2 
00,00,00,00,00,00,00,00,00,00,00,09,08,00,11,00,C4CB 
0C,00,11,66,0C,00,11,FF,0E,00,33,FF,02,00,33,FF,C8DE 
88,00,33,FF,00,00,33,EE,00,00,C0,33,88,10,00,00,CD44 
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,CD44 
00,00,11,00,00,00,22,00,09,00,FF,89,00,11,FF,8B,009A 
00,F1,FF,68F,00,11,FF,8B,00,00,FF,89,00,00,22,00,D65E 
00,00, 11,00,00,00,00,00,00,00,00, 00,00, 00,00,00, Déé6F 
00,00,00,00,00,00,00,88,00,00,11,00,00,00,77,CC, D84B 
08,00,FF,CD,08,70,FF,CF,08,00,FF,CD,08,00,77,CC,DFB4 
08,00,11,00,00,00,00,88,00,00,00,00,00,00,00,00,E025 
00,00,09,00,00,00,00,00,00,00,00,44,00,00,00,88,E0F1 
00,00,33,EE,04,00,77,EE,0C,20,F7,EF,0C,00,77,EE,E70E 
0C,00,33,EE,94,00,09,88,00,00,00,44,00,00,00,00,E90B 
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,22,E92D 
00,00,00,44,00,00,11,FF,02,00,33,FF,06,10,F3,FF,EDBD 
0E,00,33,FF,06,00,11,FF,02,00,09,44,00,00,00,22,F07B 
00,00,00,00,00,00,00,00,00,0000,00,00,00,00,00,F07B 
00,80,00,00,00,60,11,CC,00,11,FF,00,00,11,FF,88,F4E0 
00,11,FF,CC,00,11,FF,89,00,00,FF,8F,00,00,BB,06,FAA4 
09,00, 88,06,00,00,00,04,00,00,00,00,00,00,00,00,FB36 
00,00,00,00,00,40,00,00,00,30,Q0,EE,00,00,FF,88,FE1B 
00,00,FF,CC,00,00,FF,EE,00,00,FF,CC,08,00,77,CF,0Q4EC 
08,00,55,8B,00,00,44,03,00,00,00,02,00,00,00,00,061D 
00,00,00,00,00,00,00,00,00,20,00,00,00,10,80,77,0744 
00,00,77,CC,00,00,77,EE,00,00,77,FF,00,00,77,EE, OCC7 
04,00,33,EF,0C,O00,22,CD,08,00,22,01,08,00,00,01,0F1C 
00,09,00,00,00,00,00,00,00,00,00,00,00, 10,00,00,0F2C 
00,00,C0,33,88,00,33,EE,00,00,33,FF,00,00,33,FF,142C 
88,00,33,FF,02,00,11,FF,0E,00,11,66,0C,00,11,00,179A 
0C, 00,00, 00,08,00,00,00,00, 00,00, 00,00, 40,00,00,17EE 
00,20,00,00,00,10,EE,00,00,11,FF,EE,00,11,FF,88, 1CA2 
00,11,FF,CC,00,00,FF,88,00,00,FF,0F,00,00,AA,0E,21CB 
00,00,88,0C,00,00,00,08,00,00,00,00,00, 00, 00,00, 2267 
00,20,00,00,00,10,00,00,00,00,F7,00,00,00,FF,FF,258C 
00,00,FF,CC,00,00,FF,EE,00,00,77,CC,00,00,77,8F, 2B8D 
08,00,55,07,00,00,44,06,00,00,00,04,00,00,00,00,2C3F 
00,00,00,00,00,10,00,00,00,00,80,00,00,00,73,88,2DCA 
00,00,77,FF,88,00,77,EE,00,00,77,FF,00,00,33,EE, 32C4 
00,00,33,CF,0C,00,22,8B,08,00,22,03,00,00,00,02,3SAE 
00,00,00,00,00,00,00,00,00,00,80,00,00,00, 40,00, 366E 
00,00,371,CC,00,00,33,FF,CC,00,33,FF,00,00,23,FF, Z2RCD 
88,00,11,FF,00,00,1t1,EF,0€,00,11,45,0C,00,11,01,23EE7 
08,00,00,01,00,00,00,00,00,20,00,09, 09, 10,00,00,3F20 
00,10,00,00,00,00,FF,00,00,00,FF,EE,00,00,FF,8B,43A3 
00,00,FF,CC,00,11,FF,CC,00,11,77,88,00,11,22,0F,489C 
00,00,00,0E,00,00,01,08,00,00,00,00,00,10,00,00, 4BC3 


1790 
1795 
1800 
1805 
1810 
1815 
1820 
1825 
1830 
1835 
1840 
1845 
1850 
1855 
1860 
1865 
1870 
1875 
1880 
1885 
1890 
1895 
1900 
1905 
1910 
1915 
1929 
1925 
1930 
1935 
1940 
1945 
1959 
1955 
1969 
19865 
1970 
1975 
1980 
1985 
1990 
1995 
2009 
2005 
2910 
2015 
2020 
2025 
2030 
2075 
2040 
2045 
2050 
2055 
2060 
2065 
2070 
2075 
2080 
2085 
2990 
2095 
2100 
2105 
2110 
2115 
2120 
2125 
2130 
2135 
2149 
2145 
2150 
2155 
2160 
2165 
2170 
2175 
2180 
2185 
2190 
2195 
2200 
2205 
2210 
2215 
2220 
2225 
2230 
235 
2249 
2245 
2250 
2255 
2260 
2285 
2270 
2275 
2280 
2285 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


09,00,80,00,00,09,80,00,00,00,77,88,00,00,/7,FF,4C38 
00,00,77,CC,00,00,77,EE,00,O00,FF,EE, 00,00,BB,CC, 5254 
00,00,99,07,08,00,00,07,00,00,00,0C,00,00,00,00,530F 
00,00,80,00,00,00, 40,00, 00,00,40,00,00,00,33,CC, 550€ 
09,00,33,FF,88,00,37,EE,00,00,33,FF,00,00,77,FF, 5A91 
00,00,55,EE,00,00,44,8B,0C, 00,00, 03,08, 00,00,06, 5CCO 
09,09,00,00,00,00,40,00,00,00, 20, 00,00,00,20,09,S5D40 
90,00,11,EE,00,00,11,FF,CC,00,11,FF,00,00,11,FF,623B 
88,00,23,FF,88,00,22,FF,00,00,22,45,0E,00,00,01,6614 
OC, 00,00,0%,00,00,00,00,00,00,00,00,00,00,00,00,6623 
90,00,09,00,00,00,00,00,00,00,00,00,00,00, 00,00, 6622 
09,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00, 6623 
00,00,00,00,00,00,00,00,00,00,00,00,00,00, 00,00, 6623 
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,6623 
00,09,00,00,00,00,00,00,00,09,00,09,00,00,22,00,6645 
00,00,02,00,00,00,02,00,00,00,03,00,00,8C,03,00,66DB 
88,03,07,0B,00,01,0F,0E,00,00,2F,08,00,00,0F,08,67E4 
00,01,0A,0C,00,03,00,06,00,02,00,02,00,44,00,11,68SD 
00,00,10,00,09,00,01,00,00,00,01,00,00,00,01,08, 6878 
00,42,01,08,40,01,0B,0D,08,00,0F,0F,00,00,03,86,69CB 
0ù,00,03,0E,00,00,06,0B,00,00,0€,01,08,00,08, 00, 6A0A 
08, 10,00,00,40,00,00,B0,00,00,00,08,00,00,00,08, 6AF2 
00,00,00,0C,00,21,00,0€,20,00,0D,0E,0C,00,07,0F,6B88 
08,00,03,86,00,00,03,0E,00,00,06,0B,00,00,0C,01,6C48 
08,00,08,00,08,10,00,00,40,00,00,44,00,06,00,04,6CFB 
00,00,00,04,00,00,00,06,00,11,08,06,11,00,06,0F,6D47 
06,00,03,0F,0C,00,01,4F,00,00,01,0F,00,00,03,05, 6DD3 
08,00,06,00,0C,00,04,00,04,00,88,00,22,06,00,00,6EA5 
00,03,00,0F,00,00,00,07,08,0F,00,00,00,07,08,16,6EFA 
00,00,00,43,00,00,C0,22,10,80,00,00,60,FF,B8,00,72C6 
00,00,71,DD,FC,00,00,00,33,02,66,00,00,00,66,25,7636 
33,00,00,00,66,2D,38R,00,00,00,CD,F0,95,88,00,00,7A11 
66,2D,2k,00,00,00,66,25,33,00,00,00,33,02,66,00,7C38 
00,00,71,DD,FC,00,00,00,60,FF,BB,00,00,00,C0,22,817B 
10,89,00,16,00,00,00,43,00,0F,00,00,00,07,08,0F,8291 
00,00,00,07,08,06,00,00,00,03,00,03,00,00,00,01,82AD 
08,07,08,00,00,03,0C,07,08,00,00,0%,0C,03,88,00,837C 
00,253,08,00,66,00,00,CC,00,00,3%,70,D1,88,09,00,86D5 
33,E€0,F1,88,00,00,10,81,30,00,00,00,30,12,18,80,BAFC 
Q00,00,30,16,1C,80,00,00,20,78,C2,80,00,00,30,16,B8DFE 
1C,80,00,00,30,12,18,80,00,00,10,81,270,00,00,00,9035 
33,E0,F1,88,00,00,33,70,D1,88,00,00,66,00,00,CC, 95EF 
00,03,88,00,00,23,08,07,08,00,00,03,0C,07,08,00,96D2 
00,03,0C,03,00,00,00,01,08,01,08,00,00,00,0C,03,9705 
0C,00,00,01,0E,03,0C,00,00,01,0E,01,4C,00,00,11,979C 
0C,00,33,00,00,66,00,00,11,B8,E0,CC,00,00,11,F8,9BEF 
70,CC,00,00,00,C0,18,80,00,00,10,81,84,C0,00,00, A028 
10,83,86,C0,00,00,10,34,E1,40,00,00,10,83,86,C0,A53F 
00,00,10,81,84,C0,00,00,00,C0,18,80,00,00,11,F8,A975 
70,CC,00,00,11,B8,E0,CC,00,00,33,00,00,66,00,01,ADCO 
4C,00,00,11,0C,03,0C,00,00,01,0E€,03,0C,00,00,01,AE57 
0E,01,08,00,00,00,0C,00,0C,00,00,00,06,01,0E,00,AE9B 
00,00,0F,01,0E,00,00,00,0F,00,2C,00,00,00,86,00,AF7A 
10,80,44,30,00,00,00,D1,FF,60,00,00,00,F3,BB,E8,B544 
00,00,00,66,04,CC,00,00,00,CC,44,66,00,00,00,CD, BBC 
4B,66,00,00,11,%A,F0,3B,00, 00,00, CD, 48,66, 00,00, BCC8 
00,CC,44,66,00,00,00,66,04,CC,00,00,00,F3,RB,EB,C210 
00,00,00,D1,FF,60,00,00,10,80,44,30,00,00,2C,00,C570 
00,00,86,01,0E,00,00,00,0F,01,0E,00,00,00,0F,00,C632 
0C, 00, 00,00,06,00,00,B0,00,00,00,00,80,00,00,02,C746 
00,80,02,00,01,00,80,04,00,00,19,C4,08,00,00,37,C969 
EF,00,00,00,66,BB,00,00,00,DD,DD,88,00,F0,F7,FF,DOAI 
F0,80,00,DD,DD,88,00,00,66,BB,00,00,00,37,EF,00,D69A 
00,00,19,C4,08,00,01,00,80,04,00,02,00,80,02,00, D888 
00,00,80,00,00,00,00,80,00,00f00,00,04,00,00,00, D98C 
00,04,00,00,10,00,04,10,00,00,80,04,20,00,00,40, DA98 
AE, 40,00,00,31,FF,80,00,00,33,55,88, 00,00, 66,EE, DF9A 
CC, 00,07,3F,FF,8F,0C, 00, 66,EE,CC,00,00,33,55,88,E576 
09,00,31,FF, 80, 00,00, 40,AE, 40,00, 00,80,04,20,00,E8F8 
10,00,04,10,00,00,00,04,00,00,00,00,04,00,09,00,E924 
00,02,00,00,00,00,02,00,00,00,80,02,00,80,00,40,EA6A 
02,10,00,00,20,57,20,00,00,10,FF,C8,00,00,11,AA,EDAS5 
CC,00,00,33,77,66,00,03,1F,FF,CF,0E,00,33,77,66,F268F 
09,00,11,AA,CC,00,00,10,FF,C8,00,00,20,57,20,00,F684 
00,40,02,10,00,00,80,02,00,80,00,00,02,00,00,00,F7DA 
00,02,00,00,00,00,10,00,00,00,00,10,00,00,00,04,FB00 
10,00,04,00,02,10,00,08,00,01,32,89,00,00,00,7F,F969 
CE,00,00,00,DD,66,00,00,11,BB,BB,00,10,F0,FF,FE,FFFE 
F9,00,11,8B,BB,00,00,00,DD,66,00,00,00,7F,CE,00,0505 
00,01,32,89,00,00,02,10,00,08,00,04,10,00,04,00,05F3 
00,10,00,00,00,00,10,00,06,44,00,11,00,08,07,00,0677 
08,88,0F,08,88,09,5A,0C,08,AF,A5,A7,88,09,S5A,0C, OBOF 
08,88,0F,08,88,08,07,00,08,44,00,11,00,02,00,00,0CAC 
08,44,03,08,44,04,07,0C,04,44,2D,86,44,27,5A,4B,0F69 
8C,44,2D,86,44,04,07,0C,04,44,03,08,44,02,00,00,11E0 
08,01,00,00,04,22,01,0C,22,02,03,0E,02,22,16,4B,12D6 
22,13,2D,A5,4E,22,16,4B,22,02,03,0E,02,22,01,0C,1514 
22,01,00,00,04,00,88,00,22,01,00,0ËE,01,11,01,0F,1616 
11,01,03,A5,09,11,5E,5SA,5F,01,03,45,09,11,01,0F, 18D4 
11,01,00,0E,01,00,88,00,22,00,80,00,00,80,00,01,1AAO 
0C,00,13,CE,00,D3,5E,80,13,CE,00,01,0C, 00,00, 80, 1EAC 
00,00,80,00,00,04,00,00,04,00,00,EËE,00,11,1F,00,2052 
17,5B,0C,11,1F,00,00,EE,00,00,04,00,00,04,00,00,21F6 
22,00,00,22,09,00,07,00,00,78,08,33,5A,6E,00,78,2434 
98,00,07,00,00,22,00,00,22,00,00,01,00,00,01,00,2489 
00,30,80,00,47,48,01,5B,4B,00,43,4B,0û,30,B0, 00, 2746 
01,00,00,01,00,00,03,01,01,01,0%,01,0D,03,7B,FB,2938 
8D,45,00,00,00,00,07,00,D4,D4,7B,7A,00,01,05,3A,2CEE 
F7,C1,15,00,04,01,00,01,00,00,02,00,00,00,85,C7, 300F 
03,00,00,00,00,00,00,00,00,00,00,00,00,00, 00,00, 3012 


55. rue Tondu 33000 Bordeaux 


Logiciel d'accès direct et de gestion du disque: 
Compatible 464, 664, 6128. 


CSA. Sotiuare 


Tél 56 96 35 23 Poste 31 


ACCESS II 


CARACTERISTIQUES : 6 nouvelles commandes pour vous permettre de réaliser l'accès directavec votre 


ordinateur AMSTRAD (lecteur A, lecteur B ou 5” 1/4). 


Ce programme contient également des utilitaires pour mieux gérer votre disquette. 


— Editeur de secteur 

- Formateur 

- Augmentation de la vitesse 

- Et toutes les fonctions que vous nous avez demandé. 
Disque uniquement 370 F + 25 F de frais de p 


DIGITALISEUR 


Avec votre caméra vidéo en toute source vidéo digitalisez 
l'image que vous avez choisie. Fabriqué par Electric Studio, 
c'est un gage de qualité. 

Possibilité de tirer la photo sur votre imprimante, de la mo- 
difier et de la sauvegarder sur disquette à volonté. 


Prix de lancement 1400,00 FTTC + 25,00 F frais de port. 


for 


IMPRESSION 


avec beaucoup de 
Programme votre traitement de texte 
Plus de 65 commandes RSX pour programmer votre 
imprimante. Recopie d'écran en différentes 
tailles et différentes couleurs. 

Sélection du mode et des fenêtres à recopier. 
Sélection de tous les caractres ACSII et 8° bit. 
Fonctionne sur les imprimantes compatibles 
EPSON et DMP 2000. 


Programme 
facilité. 


votre imprimante 


NOUVEAU L 


ort. 


LE SCANNER 


Digitalisez votre photo préférée, rentrez-la dans votre ordi- 
nateur, travaillez-la ou modifiez-la si vous le souhaitez. 
Sauvegardez-la sur votre disquette et tirez-en' une copie 


mat A3 avec votre imprimante {ne fonctionne qu'avec 


la DMP 2000). 
Prix 890,00 F TTC + 25,00 F frais de port. 


TAPE LEADER 


Sauvegarde de bandes à bandes 
jusqu'à 45 Ko sur 464 OÙ 6128. 
Affichage permanent des rensei- 
gnements concernant le logiciel 

en duplication, ainsi que l'espa- 
ce disponible en mémoire. 
Sauvegarde sous différentes formes 
avec 10 vitesses paramétrables. 


vos 


AMSTRAD CPC AMSTRAD PCW 

(K7/DISC) DISC dbur-+ us 
Translock 165/205 SouristInterface 1 400 NT 
Hercule 250 Stylo optique 830 INTERESSE 
Psychotest 100/135 Tasword 8000 505 
Méphisto 175/205 Tasprint 8000 250 CONTACTEZ 
Access II 370 Discrate 295 NOUS Le 
Impression 200/240 
Tape Leader 175 
Multiface II 600 
Le : D —— —— 
Re Let . BON DE COMMANDE 
2°00r Prévoir 25F de port + 20F pour le contre- 
Tasword D MailMerge 420 remboursement 
Tasprint 205/250 | NOM : x PRENOM :. 
Masterile 460 | ADRESSE :.... en alter 
Mastercalc 460 LOGICIEL IS) COMMANDE SI : 
Agenda 300 ; 


LE CATALOGUE DE NOS SOFTS EST 
DISPONIBLE CHEZ VOTRE REVENDEUR 


at ES 


Pour nous aider à vous proposer des articles et des listings tou- 
jours plus intéressants, nous vous invitons à les noter en fonction 
de l'intérêt que vous leur accordez. 

CPC sera ainsi encore plus proche de ses lecteurs ! 

Pour vous encourager à participer à ce sondage mensuel, nous 
tirerons au sort 3 bulletins qui recevront un cadeau surprise. 


CAO sur Micro 


Relief 

Vision 

Le tri dans le Bank manager 
Au cœur du PCW 

Transfert CPC/IBM PC 
Fonctions (PC 1512) 
Catalogue disquettes 
Initiations à CP/M 

20 formateurs en 1 
Répondeur télématique 


Poker 


Nos rubriques permanentes 


Trucs et astuces 
Actualité 

Essais matériels 
Essais logiciels 


Vitrine du libraire 


Je possède un [] CPC 464 (drive) [] 664 [ 6128 
[] PCW 8256 O 8512 D PC 1512 
A retourner à : Editions SORACOM ‘'Sondage Mensuel 


Age : CPC’’, La Haie de Pan, 35170 Bruz 
D D DS DS DU UN UN DU DU UD US CN US D NO US DU OU OU OU OU OU OS ne 


Nom : ...... so Prénom .............. 


Adresse : ............................... 
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CONCOURS CPC 


Lors de la parution des résultats du concours organisé 
par CPC, vous avez déjà eu l’occasion de lire leurs noms 
car ils ont tous obtenu le 3e prix dans leur catégorie 
respective. 

Nous vous les présentons aujourd'hui tous les trois (avec 
photos à l'appui). Chacun va recevoir son dû, c'est-à- 
dire un balladeur et cinq logiciels de jeux soigneusement 
choisis par la rédaction. | 


Catégorie Jeux : Catégorie Educatif : Catégorie Utilitaire : 
Stéphane Mankowski Vincent Courtois Pascal Dubus 
Montgiscard Wattignies Maromme 

Son programme : BUG BUGGY Son programme : EUROGEO Son programme : SAD 


PROTÉGER VOTRE AMSTRAD 


TOUS LES SACS ET HOUSSES SONT ADAPTÉS A CHAQUE TYPE DE MATÉRIEL ET LES PASSAGES DE CABLES SONT PRÉVUS. 


Cochez 
bien 

les cases 
et 
couleurs 


Housse pour Amstrad (claier) 
Sac pour Amstrad (clavier) CPC 46406640 61280PCW 825601 
PC 46401664061280PCW 8256.[] Coloris: beige, blanc, bordeaux, noir, 


oloris : bleu, gris ou sable. marron. Pochettes disquettes 3°’ ou 3,5“ 

LE 130 F TTC pour 1 disquette 29 FTTC 
Sac pour moniteur Amstrad mono- Housse pour moniteur Amstrad. ne DO pour 6 disquettes .... 116 F TTC 
chrome [1 couleur. [1 Coloris: beige, blanc, bordeaux, noir, pour 10 disquettes .. 150 FTTC 
Coloris: bleu, gris ou sable pour 32 disquettes .. 200 F TTC 


130 F TTC Coloris: gris, bleu ou sable. 


Les sacs pour claviers AMSTRAD 464 - 664 - 6128 comprennent 1 poche pour le clavier plus 1 autre du même volume pour y ranger les accessoires. 


POUR COMMANDER: Retournez-nous cette publicité en cochant le ou les pro- 
duits que vous désirez recevoir et en remplissant le bon ci-dessous. Pour les coloris, 
rayez les mentions inutiles. 


@ Port PTT à ajouter au montant de votre commande: 25F 
@ Joindre votre règlement par chèque ou mandat à votre commande. 


Prénom 


IZARD Creations - 99 31 64 73 


27, Bd de la Fraternité ‘44100 NANTES Signature: 
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AUC 


Noël LAGNEU 


DL) 


EUR 


CV 


COPYCHR SUR LES PCW 


Notre série "Au cœur du PCW" continue sur sa lancée. Ce mois-ci, nous al- 
lons compléter nos réflexions précédentes sur l'environnement écran des 
PCW en nous dotant d'une nouvelle routine absente du BASIC Mallard : la 
routine COPYCHR dont la fonction est de nous donner le code ASCII du 
caractère éventuellement présent à une position donnée de l'écran. Cette 


petite étude est un prél 


ude à la solution d'un problème que beaucoup de 


lecteurs nous posent : l'écriture de chaînes de caractères à l'imprimante, 
en taille double, quadruple ou octuple. Le sujet du prochain numéro de CPC 
est donc tout trouvé ! 


MEMOIRE DE CARACTERES 


L'environnement écran des PCW a été 
abondamment décrit et commenté au 
sein de cette chronique. L'article du pré- 
cédent CPC nous a renseigné sur les 
hardcopies graphiques et nous considè- 
rerons ces deux notions importantes 
comme acquises : 

— L'accès à la mémoire écran et à la 
mémoire de caractères en banque 0 ne 
peut être réalisé que via la fonction 
USERF (adresse FC5A) avec 00E9 
comme paramètre in line. 

— La routine de calcul du scrolling ver- 
tical de l'écran est réutilisée ici telle 
quelle et ne sera donc pas commentée 
une seconde fois. 

La mémoire de caractères est décompo- 
sée en 255 groupes de 8 octets. 2 Ko 
sont donc réservés à cet effet en ban- 
que 0, de B800 à BFFF. Parmi ces ca- 
ractères affichables, seuls les 128 pre- 
miers sont imprimables. On peut altérer 
cette mémoire de caractères (CPC 
n° 15) et modifier ainsi les symboles vi- 
sualisés. Malheureusement, ceci ne 
change rien à la police de caractères 
accessible à l'impression et il faut alors 
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en découdre avec le graphisme (CPC 
n° 16). 


LA ROUTINE COPYCHR 


La fonction de ce sous-programme 
BASIC est de donner le code ASCII du 
caractère ASCII présent sous le cur- 
seur alphanumérique. Nous avons choi- 
si une voie légèrement différente : le pa- 
ramètre d'entrée est constitué de l'a- 
dresse de la mémoire écran qui est la 
base du caractère à tester. Ainsi, les 8 
octets suivant cette adresse sont-ils 
comparés aux 8 octets d'un caractère 
donné. En parcourant la totalité des 
caractères existants, on est en mesure 
de répondre à la question posée : 


— Une comparaison a été valide (sur 8 
octets consécutifs). Alors, le code 
ASCII du caractère est accessible en 
sortie du sous-programme. 

— Aucune matrice de caractères ne sa- 
tisfait aux comparaisons. Le résultat 
est alors l'espace (code ASCII 32) par 
convention. 

Le programme BASIC COPYCHR.BAS 


propose en application de ce qui pré- 
cède une hardcopie en caractères d'un 
écran donné. On entend ici que l'écran 
est effectivement imprimé, hormis les 
éléments graphiques éventuels. Les co- 
des binaires sont d'abord chargés en 
mémoire (adresse F000) et on retrouve 
en lignes 320 et 330 les boucles sur les 
lignes et colonnes de l'écran. Toutes 
autres applications de la routine COP%X 
sont bien sûr envisageables. L'utilisa- 
tion du sous-programme de décalage 
vertical (scrolling) permet de respecter 
l'image géométrique réelle de l'écran, 
sans en mélanger les lignes. 

Le listing assembleur COPYCHR.ASS 
explicitera au lecteur assidu la réalisa- 
tion de ce qui a été précédemment expli- 
qué : accès à l'environnement écran 
avec USERF, boucle CARSUI sur les 
128 caractères imprimables, sorties 
OUI ou NON suivant le cas, déroute- 
ment vers l'étiquette FAUX lorsqu'un 
caractère ne convient pas. On remar- 
quera la gestion des paramètres en 
entrée ou en sortie lors d'un CALL 
BASIC, avec le passage des argu- 
ments par leurs adresses dans les re- 
gistres doubles HL et DE. 


Listing assembleur de COPYCHR,ASS 


USERF : EQU FCSA 
F000 7E LD A,CHL) Passage du paramètre | 
F001 23 INC HL 
F002 66 LD H,(HL) 
F003 6F LD LA HL : nénoire écran concernée 
F004 DS PUSH DE Sauvegarde adresse retour 
F00S 01 13 F0 LD 8C,COPCH 
F008 CD SA FC CALL USERF 
F00B E9 00 DEFW 00E9 
F00D 22 FE F2 LD (F2FE),HL Test de aénoire 
F010 E! POP HL Adresse paraaètre retour 
fol} 77 LD CHL),A 
F012 ç9 RET 
F013 06 00 COPCH LD B,90 
F015 11 00 88 LD DE,5800 Début ménoire caractères 
Fole CS CARSUI PUSH BC B : conteur code ASCII 
F019 ES PUSH HL 
FOIA 06 08 LD B,08 Compteur d'octets 
F0ic IA TEST LD A,(DE) 
F01D BE CP  (CHL) 
FOIE 20 08 JR N2Z,FAUX 
F020 13 QUI INC 9€ 
F021 23 INC HL 
F022 10 F8 DJNZ TEST 
F024 El POP HL 
F025 C1 POP 8C 
F026 78 LD AB A contient le code ASCII vouiu 
F027 C9 RET 
F028 68 FAUX LD L,8 
F029 26 00 LD H,00 
F026 19 A0 HL,DE Actualisation pointeur 
FO2C EB EX DE,HL aénoire de caractères 
F020 E POP HL 
FO2E C1 POP 8C 
F02F 04 INC 8 Nouveau caractère 
F030 3E 7F LD A,7F «128 
F032 B8 CP B 
F033 28 02 JR  Z,NON 
F035 18 €! JR CARSUI 
F037 3E 20 LD 4,20 Espace pour caractère non trouvé 
F029 C9 RET 


100 MEMORY 8HEFFF:DIM c$(22) 

110 DATA 48h01 ,8h82,4hF0, &hCD, 8h5A, &hFC,&hE9, &h00 

120 DATA 4hC9,8h34, 4h00, &hB6, 8h32, &hFE ,LhFO,&n5A 

120 DATA &h01 ,8hB6,8h32,4hFF ,4hFO, &hC9 

149 ‘ 

150 ‘ Initialisation et calcul du d(calage vertical 
160 ‘ 

170 FOR i=4HF000+121 TO &HFO00+142:READ n:POXE i ,n:NEUT 
180 decaif=4HF079:CALL decaif:decW=(PEEK(4HFOFE )+2S6RPEEX(AHFOFE )-8H2C98)/360 
190 LPRINT CHRS(27)+"A"+CHRS(8) 

200 ‘ 

210 ‘ Routine COPYCHRS 


230 DATA &h7E 8h23, 8h66, &h6F , &hDS, 8h01, &hi3, &hFO 
240 DATA &hCD,8h5A, &hFC,&hE9, &h00, 8h22, 8hFE, &hF2 
250 DATA BhE1 ,&h77,&hC9, 8h06 , 8h00, 8h11 ,&h00 ,&hE8 
260 DATA 8hCS,BhES, &h06, &h08 , BhIA, AhBE, £h20, &h0B 
270 CATA &h13,8h23,8h10,4&hF8,&hEI ,8hC1 ,&h78, &hC9 
280 DATA &h68,8h26,&h00,&h19,4hEB, 8hE1 ,&hC1 ,&h04 
290 DATA &hSE,8h7F,&hB8 8h28, 8h02, 8h18 ,8hE 1 ,&h3E 
300 DATA 8h20,8hC9 

310 FOR 1=8HF000 TO AHF000+57:READ n:POKE i,n:NEXT 
320 copt=kHF000 ne=kH5930+des 41720 :asc4=0 

330 FOR 3=1 TO 31 

340 FOR 1=1 T0 90:menX=UNT(me):CALL coph(nent ,asc{) 
350 se=ne+3:[F me)45152! THEN nezne-22329 

360 cS(j)zc$(j)+CHRSCascH) NEXT i 

270 NET 

380 FOR i=1 TO 31:LPRINT c$Ci):NEXT 


À L'OUEST DU NOUVEAU 
Micronaute 


9, rue Urvoy de Saint Bedan 
44000 NANTES 
Tél. : 40.69.03.58 


SPECIALISTE AMSTRAD 
Toute la gamme CPC et PCW 
aux prix AMSTRAD 
avec le service MICRONAUTE 


STATION TECHNIQUE 
Dépannage rapide sur place. 
AMSTRAD. ATARI ST. COMMODORE. 
THOMSON. 


SERVICE FORMATION 
° Locoscript + D Base Il - Multiplan 
Ex. : Locoscript 3 j/1690 F TTC 
(conventions de stages possibles) 


LIBRAIRIE : MICRO APPLICATION 
P.S.I. 
SYBEX 
EYROLLES, etc... 


LOCATION 
(8256) 


SPECIALISTE AMSTRAD PC 
RESERVEZ-LE MAINTENANT : 


Monochrome 
PC 1512 SD 4997 F HT |PC.1512 SD 


PC 1512 DD 6290 F HT [PC 1512 DD 8190 F HT 
PC 1512 HD 20 9990 F HT | PC 1512 HD 20.11890 F HT 


DMP 3000 1930,86 F HT 
DMP 4000 3447,00 F HT 


SELECTION MICRONAUTE 


* SOFTS 
NOUVEAUTES, arrivages toutes les semaines. 
SPECIALISTE : LORICIELS 
ERE Informatique 
ACTIVISION 
ELECTRIC DREAMS, 
UTILITAIRES : Traitements de texte 
Fichiers 
Tableurs 
Compta/facturation,… 
LOGICIELS EDUCATIFS 
MASTERTRONIC : 29,90 F 
Nombreux titres. 
NOMBREUX JEUX 8256 


* EXTENSION MEMOIRE DK TRONIC 
* DIGITALISEUR D'IMAGES 

* CORDON 

* RUBAN IMPRIMANTE 

* HOUSSES 


M INTERFACE TUNER TV. 
16 chaînes pré-programmables PAL/SÉCAM. 
Prise Péritel - Comp. Canal + - Branchement 
Spécial AMSTRAD 


CREDIT Dossier CREG immédiat 


M VPC envoi rapide 
Commande : Tél. : 40.69.03.58 


Micronaute VPC 
9, rue Urvoy de St Bedan - 44000 Nantes 
Port : 20 F Softs 70 F Machine 

+ 30 F contre-remboursement 


PCW GRAPH 
DE MICRO-APPLICATION 


Noël LAGNEU 


Voici un nouvel utilitaire de graphisme, édité par Micro Application. Ce pro- 
gramme est un outil de visualisation de données numériques et fait office de 
CHART (graphique MS/DOS de MULTIPLAN, DE MICROSOFT) ou de GRAPHIC 
ASSISTANT (IBM) pour les PCW. Il nous a paru d'un emploi très aisé, nette- 
ment plus simple que DR DRAW (Digital Research), mais aussi plus limité. 


Au lancement du programme, les 3 li- 
gnes supérieures de l'écran apparais- 
sent en vidéo inverse et contiennent 
les douze ordres de base du produit. 
Sans être exhaustif, nous allons en 
commenter quelques uns pour fixer 
dans l'esprit du lecteur les possibilités 
et les limites de ce logiciel. 


ACQUERIR 


C'est évidemment une fonction clé du 
logiciel, puisqu'elle permet l'entrée de 
données dans l'utilitaire graphique. Plu- 
sieurs options sont présentes : 

— L'arrivée en provenance d'un fichier. 
Celui-ci doit être dans un format peu 
commun : les données (ASCII) doivent 
être organisées comme elles seraient 
imprimées. Par exemple, pour acquérir 
les données en provenance de MULTI- 
PLAN, il ne faut pas utiliser les formats 
SYLK ou autres, mais tout simplement 
imprimer sur un fichier (commande 
Sortie). De même, un simple traitement 


Listing de DONNEES BAS 


10 OPEN “o",1,“donnees ,pcw" 
20 FOR i=1 T0 20 

30 x25+L06(i/20) 

40 PRINT #1,DECSCx,“#,##")+" 
50 NET 

60 CLOSE (1) 


DONNEES, PCW 


pour Figure | 


2,00 2,70 3,10 3,39 3,61 
4,40 4,49 4,57 4,64 4,71 
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de textes ou un petit programme BASIC 
permettent d'aligner des lignes et des 
colonnes de chiffres acceptables pour 
PCW GRAPH. Le listing BASIC de 
DONNEES.BAS a été utilisé pour créer 
DONNEES.PCW (figure 1). 

— L'arrivée en provenance du clavier 
est aussi possible. Cette option est 
tout à fait limitée, dans le sens où au- 
cune modification n'est possible en cas 
d'erreur. Ceci est d'ailleurs très péna- 
lisant dans tous les cas, car il faudra 
toujours retourner à la source des don- 
nées si on veut les modifier. 


ENREGISTRER ET RECHARGER 
Cela vous permet de sauvegarder en 
l'état (et de récupérer) les données, tex- 
tes et paramètres d'un ensemble de gra- 
phismes donné. 


IMPRIMER ET AFFICHER 


Ce sont les commandes de visualisa- 


tion écran et de hardcopie imprimante. 
La visualisation se fait dans une fenê- 
tre choisie (plein écran, demi-écrans 
verticaux ou horizontaux, quart d'é- 
crans), pour un graphisme défini et 
pour un des quatre jeux de données. La 
hardcopie imprimante peut se faire en 
format A4 vertical ou en format réduit 
horizontal. 


TEXTES 


Cette fonction, une fois activée, per- 
met d'introduire des textes à travers le 
graphisme. Un curseur, déplaçable 
avec les flèches, localise l'origine du 
commentaire. Ceci évite bien les fasti- 
dieux calculs pour bien placer légendes 
et graduations | 


GRAPHISMES 


Les grands classiques sont tous pré- 
sents : histogrammes, 3D, cumulés, 
surfaces, lignes, camemberts. Des 
trames permettent d'agrémenter les 
résultats obtenus qui sont modifiables 
et paramétrables. 


D'emploi très simple, ce logiciel sera un 
outil précieux pour les amateurs de 
mises en graphismes de données numé- 
riques. Il complètera, par exemple, 
agréablement les applications écrites 
sous MULTIPLAN et constitue un déci- 
sionnel graphique vite mis en œuvre. 
Compléments techniques : 

— 4 jeux de données de 48 colonnes 
par 16 lignes; 

— 16 trames d'affichage parmi 32 ; 

— 9 formats de fenêtres ; 

— 7 types de graphismes. 


PCH GRAPH de MICRO APPLICATION 


RSS SSSSSNSSNS 


RAM AS ERA SE AAA ANR 


he ii \ \ 

tte tt ttittt tè d L 
3, CCE NSEST QUAUN PÉLTÉ ÉSSAL DE PCA GRAPH 
ONE détttttttttrttettt 
ss DOS SOS NN sn UNSS SNS SSS 


SNA AUS AO MSA VU AUS CAR PAAEA AUAS AS AR RUN RE 


da dtrtttt 


4,967 4, 194614 
104 Le 


| = 41384 
n 411% 
N Ti \, / . 
SN 4 3. 


5,454 


5.63% 


g, Le San 3 
SRE 


Données introduites au clavier 


Rrelectonique 
G2 AUE DU GI DE GAULLE 
443 CHENNEVIERES 7 M 

(16.12 45.76.73.13 


CONSEILS ET FORMATION AUX ENTREPRISES 


LE SPECIALISTE AMSTRAD et COMPATIBLES PC 


AMSTRAD-COMMODORE-COPAM-ERI CSON-HECTOR-PANASONIC 
AHSTRAD  CITIZEN - EPSON - OKI - PANASONIC 


MESTERN DIGITAL - N.E.C - B.A.5.F - KING CARD 
TOSHIBA - N.E.C - B.A.5.F -  CANNON 
HICROPRO-HICROSOFT-HICRO.APPLICAT ION-BORLAND-D.R 


PSI-SYBEX-HATHAN-HICRO.APPLICATION-EDIMICRO ect. 


(Unitées centrales) 
(Imprimantes) 

(Disque durs €20,30,40 Mo) 
(Unitées disques souples) 
(Logiciels et languages) 
(Librairie spécialisée) 


AUTOFORMATION 
A L'ASSEMBLEUR 
POUR PCW 


Noël LAGNEU 


MICRO-APPLICATION avait déjà édité ce produit sur les AMSTRAD CPC, et 
récidive aujourd'hui sur PCW. Outre l'apprentissage facile et rapide du lan- 
gage machine du Z80 en détail, ce coffret permet le développement ultérieur 
d'applications par la présence d'un assembleur-désassembleur livré sur dis- 


quette. 


LANGAGE MACHINE Z80 


La première partie de l'ouvrage permet 
l'apprentissage du langage machine du 
Z80. C'est la traduction d'un ouvrage 
anglais de la série "DR WATSON LAN- 
GUAGE ASSEMBLER", qui fait réfé- 
rence en la matière. Après une brève 
description du processeur, chaque cha- 
pitre aborde un point particulier de la 
programmation en assembleur : bran- 
chements, opérations  arithmétiques, 
adressages multipes, utilisation de la 
pile... De nombreux exemples et exerci- 
ces avec solutions (sous forme sour- 
ce) permettent de comprendre intime- 
ment chacun de ces concepts avec 
beaucoup de facilité. 

Une fois cet ouvrage bien assimilé, 
l'univers des programmes écrits en 
assembleut vous sera devenu familier 
et vous serez plus apte à la lecture 
d'ouvrages plus techniques comme le 
livre du Z80 de Rodnay ZACHS. A 
signaler le programme TUTOR sur la 
disquette : il permet de simuler des 
opérations entre les registres À et B 
(en décimal, hexadécimal, binaire ou 
BCD 7!) avec examen des flags, 
résultats arithmétiques, compléments 
à deux, décalages et rotations. 

Fin du fin, la source de TUTOR en 
assembleur est un véritable trésor à 
analyser pour un programmeur novice 
en langage machine |! 
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ASSEMBLEUR 
ET DESASSEMBLEUR 


Apprendre le langage machine est ins- 
tructif et souvent très utile. Encore faut- 
il disposer des outils de développement 
permettant de créer des fichiers 
source, de les compiler. Sur les AMS- 


TRAD CPC, beaucoup de programmes 
pouvaient prétendre à ces fonctions 
(MONA, GENA, ZEN, MAXXAM, 
ZEDIS..). Aucun d'entre eux n'était 
compatible CP/M malheureusement |! 
Pour nos chers PCW, la pénurie était 
donc totale jusqu'à aujourd'hui (mis à 
part les utilitaires MAC, RMAC, LINK... 
de CP/M, pour processeurs 8080 uni- 
quement, mal documentés et d'usage 
relativement complexe).  MICRO- 
APPLICATION nous fournit ici deux pro- 
grammes importants : 

+ Un assembleur symbolique, ASSEM. 
Les commandes proposées peuvent 
être classées en plusieurs groupes : 

— Edition. Cet assembleur n'est pas 
pourvu d'éditeur ligne et la modification 
d'une faute de frappe passe par une 
réécriture. Des commandes directes 
permettent de visualiser, supprimer et 
de numéroter les lignes. Les sorties 
peuvent se faire vers l'écran et/ou vers 
l'imprimante. 

— Compilation/exécution. Z est la com- 
mande d'assemblage du source pré- 
sent en mémoire. E permet l'exécution 
du code compilé lorsque la directive 


ENT a été utilisée (départ à l'adresse 
CO000). 

— Accès disquette. Les stockages et 
chargements de fichiers source ont été 
prévus. Il est bien sûr possible de sau- 
vegarder le code compilé (extension 
.COM). 

—Les macro-commandes classiques 
sont disponibles : réservation d'octets 
pour les données (DEFB, DEFW, 
DEFS...), directives EQU et ORG (pour 
l'origine du code), étiquettes et 
variables symboliques. 

+ Un désassembleur, DISSEM. 

On peut lui indiquer les zones adresses 
à considérer comme des données et vi- 
sualiser les résultats en décimal et he- 
xadécimal, avec ou sans équivalence 
ASCII. 


On regrettera sûrement l'absence de 
moniteur qui permettrait de tester les 
programmes créés, en installant des 
points d'arrêt et en visualisant les re- 
gistres courants. Cette autoformation à 
l'assembleur se doublerait ainsi d'un 
véritable outil de développement. 


UTILISATION SOUS CP/M et 
BASIC 


Les programmes générés par l'assem- 
bleur précédent sont parfaitement utili- 
sables sous CP/M : la démarche à res- 
pecter sera alors la suivante : 

— Ecrire le source avec la directive 
ORG &XXXX. 


— Compiler en fixant l'offset à la même 
valeur &XXXX. 

— Sauvegarder le code obtenu (exten- 
sion .COM). 

— Le programme se lance alors direc- 
tement sous CP/M (du fait de l'adresse 
de départ fixée par ORG). 


Un programme conséquent écrit entière- 
ment en assembleur est une œuvre de 
longue haleine. En général, seuls cer- 
tains sous-programmes sont écrits en 
langage machine et le corps du logiciel 
utilise un autre langage (BASIC, PAS- 
CAL..). Dans ce cas encore, l'assem- 
bleur pourra nous fournir le code voulu 
sous certaines conditions : le petit pro- 
gramme BASIC TEST.BAS qui suit ins- 
talle le code machine de TES.COM (gé- 
néré par assem, avec ENT et long de 
25 octets). ll se contente de lire le fi- 
chier octet par octet. À terme, cette mé- 
thode évite de longues lignes de DATA, 
souvent sources d'erreurs (mais il y a 
la contrainte d'installer le code en 
&C000). 


ERRATUM : 


10 MEMORY @GHEFFF 
20 OPEN "R",1,"TEST.COM",1 


30 mem%=&HBFFF:noct%=25:FOR i=1 TO noct% 
40 GET #1:FIELD #1,1 AS AS:mem%=mem#+1:POKE mem%, ASC(a$) 


50 NEXT 
60 ‘ 
70 sspx=&HCO00:CALL sep% 


GLEN-ASSEM VS3.S 1985 


C000 10 

C000 20 0605 
CO00 830 2114C0 
C000 40 7E 
C000 50 

C000 60 

C000 70 

C000 80 

C000 90 CDC500 
CO00 100 C1 
CO000 110 El 
CO00 111 23 
C000 120 1003 
C000 130 Ca 
CO000 140 4553584149 MESSG: 


BOUCLE: 


B,5 

HL, MESSG: 
A, CHL) 
“HL 


BC 
E,A 
C,2 
5 
BC 
HL 
HL 


DJINZ BOUCLE: 
RET 
DEFM "ESSAI" 


UNIVERS DU PCW 


Noël LAGNEU 


Suite au courrier de certains de nos lecteurs concernant le livre "L'univers 
du PCW" de Patrick LEON, nous avons constaté l'existence de deux erreurs 
dans le listing de BINAIRE.BAS (page 133). Ces erreurs sont dues à une modi- 
fication de dernière heure du chargeur mal répercutée dans l'ouvrage. Les 
corrections intervenant page 133 sont : 


— Ligne 490... GOTO 510 et non GOTO 520 
— Ligne 120 DATA 
092105EB054F02FE05F406ED0880053D 
et non DATA 
092105EB054F02FE05F406ED0A34053D 


Il faut malheureusement remarquer que 
la frappe exacte de BINAIRE.BAS cons- 
truit un programme qui remplit exacte- 
ment les fonctions qui lui étaient deman- 
dées, par phénomène de double erreur 
se compensant. 

Page 127, beaucoup de lecteurs ont re- 
marqué les différences entre les mné- 
moniques et le code généré entre les 
adresses F3E0 et F3EA. A ce sujet, il 
faut signaler que la totalité du listing as- 
sembleur est dactylographiée et non 
issue d'un programme de désassem- 


blage. Il n'est donc qu'un listing explica- 
tif et non un code source. Ceci rend la 
correction et la relecture non seule- 
ment très fastidieuse, mais aussi très 
difficile. Il ne suffit pas d'éditer le listing 
d'un programme qui tourne |! BINAI- 
RE.ASS est valide quant aux instruc- 
tions citées, mais non quant au code 
généré (qui est celui de l'ancienne 
version). On doit donc lire : 


F3E0 C1 POP BC 
F3E1 E1 POP HL 
F3E2 C1 POP HL 
F3E3 7D LD AL 
F3E4 E6 7F AND 7F 
F38E6 C8 RET Z 
F3E7 6F LD L,A 
F3E8 26 00 LD H,00 


D'autre part, page 178, le nombre 
d'octets à reloger dans GRAPH.BIN est 
de 31 (et non 30). La première ligne du 
dump est donc 99 02 00 FO 1F 1A... et 
non 99 02 00 FO 1E 1A... Le cumul li- 
gne, ou checksum, devient alors 0759 
au lieu de 0758. Ceci évitera les problè- 
mes liés à l'utilisation de la routine 
GDRAWR. 


Après une énième relecture, nous espé- 
rons avoir repéré les erreurs empè- 
chant le bon fonctionnement des pro- 
grammes de "L'univers du PCW". Le 
nombre de ceux-ci et le volume de tra- 
vail qu'ils représentent, peuvent expli- 
quer (sans constituer une excuse) que 
trois erreurs se soient glissées à la 
composition de cet ouvrage. 
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DUCHET COMPUTERS & SIREN SOFTWARE 


51 Saint-George Road - CHEPSTOW - NP 65 LA - ANGLETERRE - Tél. + 44 291 257 80 


EN EXCLUSIVITÉ : DES PROGICIELS SUPER CHOUETTES EN FRANÇAIS POUR AMSTRAD - SCHNEIDER 464/664/6128 


Formatez toutes vos disquettes 3” ordinaires en 416 Koctets 


TURBO 41 6 (175 FF port compris) 


Le super utilitaire acclamé par la presse britannique est désormais disponible en Français 
Compatible 464, 664, 6128 . 
FORMATEZ les disquettes standard AMSTRAD des lecteurs ordinaires standard AMSTRAD/SCHNEIDER 


AVEC 208 Koctets par face : 


Pour 175,00 FF (disquette 3"') vous recevez non seulement le SUPER FORMATEUR TURBO 416, mais aussi toute une gamme d'utilitaires inédits en France. 
Les 2 faces de la disquette regorgent de programmes (en Français) jamais vus ! Sélection trèssimple par menu ! Quelques-unes des innombrables options : 


1. TURBO 416 (super formateur) 2. Archivage Fichier Disc/K7 à 3000 bauds 
3. Cherche de données / Fichier maximum 25 caractères ! 4. Re-transtert K//Disc de l'option 2 
5. Cherche de données / disc - maximum 25 caractères ! 6. Transfert intégral fichiers disc/disc 
7. Générateur de menus 8. Copieur de disquettes (très, très costaud) 
9. Accélère les lecteurs de 20 % 10. Déplombeur 
11. Éditeur de CAT 12. Moniteur de disquette 
13. Éditeur de disquette 14. Listage ASCII écran/imprimante 
15. Plan d'occupation des fichiers 16. Lecteur en-tête K7 et disc 


et bien d'autres. 


TURBO 416, le SUPER COMPENDIUM de super utilitaires en FRANÇAIS ne vaut que 175 FF port compris 


DISCOVERY PLUS :464/664/6128 


Un prodige de programmation EN FRANÇAIS. Pour ceux qui ne peuvent pas s'offrir le luxe d'une interface de transfert, DISCOVERY PLUS est la solution ! 
Transfère PLUS de programmes protégés de K7 à disquette qu'aucun autre soft ! Contient 4 programmes pour transférer : 1. Les “Speedlock” - 2. Les 
“Sans en-tête” -3..Les “Conventionnels” -4. Les autres... ! Simple à utiliser ! Pas besoin de désassembleur, etc... ! PRIX port compris : seulement 150 FF 
(disque uniquement). 


SUPER TAPE 4000 crc 464 uniquement 


Le meilleur utilitaire de sauvegarde K7/K7 sur le marché ! Sauvegarde automatique. 10 vitesses de sauvegarde au choix ! Entièrement en FRANÇAIS. 
Cassette : 90,00 FF* - Disque : 120,00 FF (port compris). 


CADEAU ! Commandez les 3 progiciels ci-dessus et nous vous offrons gratuitement en CADEAU le superbe progiciel PRO SPRITE (LA FABRIQUE DE 
LUTINS) valant normalement 125 FF ! Créez et animez des lutins que vous intégrerez à vos programmes personnels ! Un programme de démonstration 
est inclus pour vous assister. Documentation en Français. 


VENTE EXCLUSIVEMENT PAR CORRESPONDANCE - Envoyez vite votre commande (en Français) à : 
DUCHET Computers - 51, Saint-George Road - CHEPSTOWNP 6 SLA - ANGLETERRE - Téléphone : + 44 - 291 257 80 


ENVOI IMMÉDIAT LE JOUR MÊME PAR AVION c'ans le monde entier 
(hors Europe ajouter 10 FF par titre S.V. P.) 


RÈGLEMENT PAR : 
MANDAT POSTE INTERNATIONAL en francs. 
.EUROCHEQUE en livres sterling (vous faites la conversion). 
CHEQUE BANCAIRE en livres sterling compensable en Angleterre (votre banque fait la conversion). 


Rédiger les mandats, chèques , etc... à l'ordre de DUCHET Computers. 


Si vous êtes pressé, réservez votre commande EN PARLANT EN FRANÇAIS ! 
Téléphonez à Caroline, Jean-Pierre ou Didier au 44 291 257 80 de 8h à 19h. 


Ces progiciels en français sont Copyright DUCHET COMPUTERS & SIREN SOFTWARE. Ils sont disponibles en exclusivité chez Duchet Computers. 
Leur diffusion ou reproduction commerciale, même partielle, sous quelque titre ou forme que ce soit et par qui que ce soit est formellement 
interdite dans tout pays, Suisse comprise, . 


MIRAGE IMAGER versionT URB O 
enfin le TRANSFERT et la SAUVEGARDE ULTRA-RAPIDES ! 


RECHARGEZ UN PROGRAMME DE 64 Ko EN 14 SECONDES ! 
APRES L'AVOIR TRANSFERE EN UNE VINGTAINE DE SECONDES 
avec la version TURBO du MIRAGE IMAGER 


LE PERIPHERIQUE QUI TRANSFERE et SAUVEGARDE 
100 % DES PROGRAMMES 


LE MIRAGE IMAGER TURBO 


CPC 464/664 : 
seulement450 FF 


Port compris 


CPC 6128 : 
seulement 500 FF 


Port et câble 6128 compris 


MANUEL COMPLET de 3000 mots entièrement en Français 


Le MIRAGE IMAGER version TURBO est disponible maintenant. 
Chez nous, la RUPTURE DE STOCK N'EXISTE PAS. 


Ses caractéristiques : 


SAUVEGARDE 64 Ko SUR DISQUETTE EN UNE VINGTAINE DE SECONDES 
RECHARGE UN PROGRAMME DE 64 Ko EN 14 SECONDES ! 
TRANSFERT K7 / DISQUETTE ou DISQUETTE / CASSETTE et SAUVEGARDE K7 / K7 ou 


DISQUETTE / DISQUETTE de tout programme protégé ou non jusqu'a 128 Ko (64 Ko sur 464/664) 


SAUVEGARDE K7 EN 3 VITESSES (normale, rapide et TURBO) 

TOOLKIT incorporé qui affiche les adresses, INK, PEN et autres details des programmes 
et écrans, permettant un bidouillage acharne et intensif. 

Grâce au TOOLKIT, contemplez instantanément les résultats des bidouillages effectues ! 
MODE 64 K ou 128 K avec les CPC 6128 

Se branche en 2 secondes ! 

Extrêèmement simple à utiliser : géré par menus et l'on presse UN SEUL BOUTON pour 


transterer/sauvegarder/recharger. 

Ne prend aucune place en RAM, n'est donc pas detectable par l'ordinateur. 
Tres amical, detecte les erreurs de l'opérateur 

8K RAM et 8 K ROM incorpores 

Compresse afin d'utiliser un espace minimum sur disque ou cassette 
Sauvegarde en un seul bloc (pratique pour archivage) 

Compatible avec les ROMS et cartes d'extension et permet aussi de les invalider 
Pour usage personnel 

Comporte un bus d'extension pour raccorder d'autres périphériques 

Stoppez un jeu à n'importe quel moment, sauvegardez et reprenez-le au même endroit 
TOUS les programmes transférés fonctionnent ! 


VENTE PAR CORRESPONDANCE - Envoyez votre commande (en Français) directement à : 
DUCHET Computers - 51, Saint-George Road - CHEPSTOW NP6 SLA - ANGLETERRE - Téléphone : +44 - 291 257 80 


ENVOI IMMEDIAT LE JOUR MÊME PAR AVION dans le Monde entier (Hors Europe ajouter 25 FF S.V.P.) 


REGLEMENT PAR : 

MANDAT POSTE INTERNATIONAL : 
CPC464/664 : 450 FF 

CPC 6128 : 500 FF 


REDIGER LES MANDATS, etc... à L'ORDRE DE DUCHET Computers. 


EUROCHEQUE ou CHEQUE BANCAIRE en livres sterling 
compensable en Angleterre 

CPC464/664 : 49,95 livres sterling 

CPC 6128 : 54,45 livres sterling. 


Si vous êtes pressé, réservez votre commande EN PARLANT EN FRANÇAIS ! 


Téléphonez à Caroline, Jean-Pierre où Didier au 44 291 257 80. 


TRANSFERTS CPC/IBM-PC 


Michel ARCHAMBAULT 


AMS 


RAD qui vont vous permettre d'échanger, 
rammes et des fichiers entre AMSTRAD CPC et IBM- 


dans les deux 


I l eg de deux programmes BASIC associés à l’interface RS 232 


sens, des pro 
PC (et compatib 


Voyons le matériel nécessaire : 

- un Amstrad CPC avec lecteur de dis- 
quette ; 

- un micro-ordinateur IBM-PC ou compa- 
tible PC (AX, AT, etc.) équipé d'une 
carte série RS 2320 ; 

- l'interface série RS 232C AMSTRAD 
(590 F TTC) ; 

- un câble MODEM mâle-femelle à 25 
broches ; 

- un raccord NUL MODEM femelle- 
femelle pour dito (à faire soi-même) ; 
- un programme BASIC à entrer sur CPC ; 
- un autre à entrer sur IBM (très court). 
C'est tout et avec cela vous pourrez 


Si vous avez l'intention de CREER 
ou si vous avez déjà créé 


VOTRE BOUTIQUE INFORMATIQUE 


rejoignez nous avec la franchise 
SON VIDEO 2000 et devenez un 
distributeur POINT MICRO pour 
MOINS DE 20 000 Frs !11 


DISTRIBUTEUR AGREE AMSTRAD, COMMODORE 
ATARI,ORIC et COMPATIBLES ÊC . 


RENSEIGNEMENTS 
56 42 91 78 
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es). Intéressant, non ? 


transférer d'un système à l’autre des 
fichiers ASCII et des listings de program- 
mes, toujours en ASCII. 

Moyennant quelques modifications, on 
peut communiquer avec autre chose 
qu'un PC : MSX, APPLE, ORIC... pourvu 
qu'ils possèdent, eux aussi, une interface 
série et qu'ils utilisent le codage ASCII. 
Nous avons fait par exemple un couple 
de programmes pour communiquer avec 
un EPSON HX-20, le programme côté 
AMSTRAD subissant très peu de 
changements. 

L'interface série permettra aussi le bran- 
chement à un MODEM, mais cela pré- 
sente peu d'intérêt en France pour un 
particulier (vu le rapport qualité-prix des 
liaisons téléphoniques...). Egalement, 
avec une imprimante avec carte série, on 
a alors le huitième bit. 


LE PRINCIPE DES LIAISONS SERIE 


“Tout sort par un seul fil”, c’est-à-dire 
que pour envoyer un octet on va y faire 
passer ses huit bits un par un. A l’autre 
extrémité du fil, une autre interface série 
reçoit ces salves d'impulsions électri- 
ques, reconstitue l'octet et le communi- 
que à son micro. 

Toute interface série pour micro- 
ordinateur possède une borne de sortie 
(n° 2) et une d'entrée (n° 3). Bonne nou- 
velle, ces prises ont un brochage norma- 
lisé. Donc, pour relier deux micros par 
leurs interfaces, la borne n° 2 va au n° 3 
etlan° 3 aun° 2. OK ? Pour réaliser ces 
croisements de fils, on intercale un rac- 
cord spécial que l’on appelle un ‘’NUL- 
MODEM" facile et peu coûteux à fabri- 
quer. Nous verrons cela plus loin. 

En fait, il Y a bien d’autres fils dans ce 
type de liaisons : le retour masse, bien 


sûr, mais aussi des ‘‘coordinations’’ 
entre les deux interfaces ; des noms 
‘’impossibles’’ tels que RTS, CTS, DTR, 
DSR et DCD. Eux aussi vont faire l'objet 
de croisements dans notre NUL MODEM. 
La norme RS 232C porte bien mal son 
nom car toutes les fantaisies y sont pos- 
sibles, non pas dans le brochage, mais 
dans le codage du signal. Il est évident 
que les deux interfaces doivent être sur 
la même ‘‘longueur d'onde’ pour se 
comprendre !! 

De part et d'autre, c'est le programme 
BASIC qui établit les codages de son 
interface série. Les syntaxes sont certes 
différentes, mais les codages résultants 
doivent être identiques. Le paramètre le 
plus important est la vitesse de transmis- 
sion de bits par seconde, elle est expri- 
mée en ‘‘bauds””. L'interface AMSTRAD 
peut être programmée depuis 50 bauds 
(= 5 octets/seconde) jusqu'à 19 200 
bauds (= 1900 octets/seconde). Nous 
opérerons arbitrairement en 9600 bauds 
(= 960 caractères/seconde). Pour fixer 
les idées, le Minitel reçoit en 1200 bauds 
et émet en 75 bauds. 

Les autres paramètres concernent le 
‘message octet”” : le nombre de bits de 
données, 8 ou 7 ; on a pris 7 car il s'agit 
de transmettre des caractères ASCII (< 
128). Le nombre de bits signalant la fin 
de l'octet, c'est 1 ou 2, on en a pris un. 
Le ‘contrôle de parité”, un contrôle de 
la qualité de l'octet reçu qui refusera tout 
octet ayant souffert d’un parasite sur la 
ligne. Pas de risques avec notre liaison 
directe de moins de deux mètres ! Donc 
pas de contrôle de parité (= ‘‘parité 
nulle”'). Ces choix sont tout à fait 
arbitraires. 

NOTA : Les interfaces série pour impri- 


Femelle 


Femelle 


0000000000000 


000000000000 
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Brochage prise femelle, 


vu côté soudures 


Câblage du NUL MODEM 


mantes sont codées par des ‘’switches"” 
parce que l'on ne peut faire autrement. 
Elles ne savent que recevoir. L'en- 
trée/sortie d'un MODEM est, elle aussi, 
codée par switches. La multiplicité des 
codages possibles en RS 232C consti- 
tue une sorte de ‘‘’confidentialité”" pour 
les transmissions téléphoniques. 


L'INTERFACE AMSTRAD 


Le coffret contient le boîtier électronique, 
un bloc secteur (qui chauffe beau- 
coup...), un câble plat avec connecteurs, 
hélas très court, une plaquette d'époxy 
(pour raccorder l'interface disquette DD1 
pour 464) et une notice en français : 
celle-ci est très claire sur les généralités, 
mais super nébuleuse quant à l’utilisation 
pratique. Je m'explique : l'usage d'inter- 
face série fait intervenir des commandes 
et des fonctions spéciales absentes du 
BASIC des CPC. Elles sont disponibles 
sous formes de RSX qui sont changées 
en RAM par une ROM dans le boîtier. Un 
bon point, mais rien sur leur utilisation 
rationnelle dans un programme AMS- 
TRAD ! Il a fallu quelques heures d’'es- 
sais pour découvrir leurs exigences et 
leurs interdits, du moins pour ce qui nous 
intéresse, à savoir l'envoi et la réception 
de chaînes sans risques de ratés. Le 
matériel est bon, c'est la notice qui n’est 
pas à la hauteur. 

Si vous voulez programmer autre chose, 
inspirez-vous des syntaxes, des routines 
mises au point dans le nôtre. Nous 
l'avons éprouvé avec un fichier bidon de 
26 fiches de 255 caractères chacune : 
après plusieurs allers-retours, pas le 
moindre octet abîmé. 


Nul Modem 


CPC (F) (M) E><E (M) nr 


(@) prise socle mâle 
(©) prise socle femelle 


Synoptique d'utilisation 


Deux recommandations importantes : 
- Possesseurs de 464 + drive : débran- 
chez l'interface drive. Fixez le connecteur 
du câble plat à sa place. Dans le connec- 
teur, à mi-longueur du câble, enfoncez 
la plaquette cuivrée fournie. Enfin, sur 
celle-ci, rebranchez votre interface drive, 
avec son câble du même côté que le 
socle 25 broches RS 232. N'essayez pas 
de brancher votre drive à l'arrière du boî- 
tier série, il ne fonctionnerait pas (réservé 
à d’autres interfaces). 


- Il faut impérativement mettre sous ten- 
sion l'interface série avant le drive et le 
micro, sinon il sera ignoré. Micro + drive 
fonctionnent normalement avec l'inter- 
face série branchée non alimentée. Tou- 
tefois, quand la série est active et que 
vous coupez son alimentation, vous per- 
dez votre programme en mémoire | 


LE CABLE ET LE NUL-MODEM 


Les socles d'interfaces série sont mâles 
sur les micros et femelles sur les impri- 
mantés et les MODEM. En conséquence, 
puisque nous prolongerons le câble par 
notre NUL-MODEM, on a intérêt à avoir 
un câble mâle-femelle et un NUL- 
MODEM (on dit aussi ZERO-MODEM) 
femelle-femelle. Pour le raccordement 
AMSTRAD/MODEM, il suffira d'enlever 
le NUL-MODEM. 


Pour raccorder à une imprimante avec 
carte série (c'est rare..), ça ne marche 
pas. Il faudrait sertir une troisième fiche 
(mâle) sur notre câble plat à 25 conduc- 
teurs, donc en parallèle avec les autres, 
mais à = 10 cm de l'extrémité femelle. 


Confection du câble 


Dans un magasin de composants élec- 
troniques (ou chaîne TANDY), procurez- 
vous 1,5 à 2 mètres de câble en ruban 
25 conducteurs et deux prises mâle et 
femelle ‘‘’à sertir’’. Outil nécessaire : une 
vulgaire pince multiprise. Un bord du 
ruban est teinté (bleu), c'est le ‘‘filn° 1”. 
Engagez le ruban de telle sorte que le 
bord bleu soit côté n° 1 (visible sur la 
prise). Puis, serrez avec la pince multi- 
prise. Trois minutes pour faire un câble. 


Confection du NUL-MODEM 


Il faut deux prises femelles ‘’à souder’’, 
ainsi que sept fils de 10 à 15 cm, assez 
fins mais de couleurs différentes (deman- 
dez du ‘‘fil en nappe multicolore''). Dénu- 
dez, torsadez et pré-étamez les extrémi- 
tés. Le plan de câblage n'est pas celui 
de la notice AMSTRAD. 

Sur chaque prise, reliez ensemble (fil 
court) les bornes 6 et 8, puis les fils 
d'une prise à l’autre : 2 vers 3 ; 3 vers 
2 ; 4 vers 5; 5 vers 4; (6 + 8) vers 20 ; 
20 vers (6 + 8); et 7 relié à 7 (c'est la 
masse). 


L'UTILISATION DE L'ENSEMBLE 


Les deux micros sont reliés et chargés 
de leurs programmes BASIC.RUN SUR 
AMSTRAD. L'écran demande si vous 
voulez envoyer ou recevoir. un fichier, 
puis son nom, le nom qu'il prendra sur 
le ‘’récepteur’”. Sur le PC, est-ce que ça 
se passera sur le drive À, B ou C ? Vous 
voyez que tout est commandé à partir de 
l'AMSTRAD. 
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Fort de ces renseignements, le CPC vous 
invite à faire RUN sur le PC (la touche de 
fonction F2). C'est tout. La suite est 
entièrement automatique ; le fichier s’'en- 
registre sur la disquette du micro récep- 
teur, puis retour automatique aux états 
initiaux ; prêt pour un autre transfert, 
pourquoi pas dans l’autre sens, si vous 
trouvez plus simple d'emploi. 

Et maintenant, quelques gadgets utiles : 
- À partir du menu AMSTRAD, vous pou- 
vez faire un CAT en pressant la touche 
C. De là, une touche quelconque vous 
ramène à ce menu. 

- Après avoir tapé le nom du fichier à 
transférer : si c'est un envoi, l'écran vous 
demande si vous êtes d'accord pour que 
le PC l'enregistre sous ce même nom sur 
son drive B. Si oui, touche ‘‘O””, si non; 
vous devrez entrer le drive destinataire 
(A, B ou C}) et le nom qu'il ÿ aura. Pour 
une réception de fichier, vous tapez le 
nom de l'original sur PC. L'écran vous 
propose alors de le rentrer sous ce même 
nom et qu'il vient du drive B du PC. 
Ensuite, même touches ‘’O’’ ou ‘’N”. 


Pour transférer un programme BASIC, il 
faut d'abord en faire une version ASCII 
par SAVE‘'*MACHIN'',A. C'est la même 
syntaxe sur IBM, mais attention au super 
piège ! Sur disque CPC, vous aurez 
“"MACHIN.BAS'" et ‘’MACHIN'' tout 
court pour la version ASCII. Très bien. 
En revanche, avec le DOS de l’IBM 
(“MS.DOS"'}, ils vont porter tous les 
deux le même nom ‘'MACHIN.BAS"''.. 
Donc, pour contourner cette stupidité, 
pensez à modifier le nom, par exemple 
es tapant SAVE'‘MACHINA'',A sur 
"IBM. 

Vous pouvez faire LOAD d'un pro- 
gramme BASIC en ASCII, et de là le lis- 
ter normalement à l'écran comme à l’im- 
primante, modifier les différences de 
syntaxes, puis le recharger en BASIC par 
un SAVE banal. Le BASIC MICROSOFT 
de l'IBM PC et celui de l'AMSTRAD se 
ressemblent à 80 %. Celui de l’'AMS- 
TRAD étant bien plus complet (Hé 
oui !...), il est plus facile d'adapter de 
l'IBM sur CPC que de faire l'inverse 
(attention aux paramètres des LOCATE 
qu'il faut inverser). 

Les gens pressés peuvent arrêter là la 
lecture de cet article pour taper et lan- 
cer nos deux programmes. La suite expli- 
que comment ça marche. 


LA SYNTAXE DES 
COMMANDES DE LIAISONS SERIE 


Celle apportée par la ROM de l'interface 
AMSTRAD ne ressemble en rien à ce qui 
existait précédemment dans les autres 
BASIC : nous donnons respectivement 
les syntaxes AMSTRAD et IBM 
(MICROSOFT). 

- Paramètres RS 232C et ouverture 
liaison : 

ISETSIO,9600,9600,1,7,00 
OPEN''COM1:9600,N,7,1''AS#1 

(= canal #1) 
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- Délai d'attente maxi : 
ISETTIMEOUT,8000 (= 8 secondes) 
‘*,DS15000" (à la suite du COM1:) (= 
15 secondes) 


- Caractère repère de fin de chaîne : 
ISETBLOCKEND,13 (= CHR$(13)) 
pas fixable, à découvrir (13 pour IBM, 10 
pour EPSON) 


- Envoi d’une chaîne T$ : 
IOUTBLOCK,9E%,0T$ 
PRINT #1,T$ 


- Réception d’une chaîne T$ : 
lINBLOCK,9E % OT $ 
INPUT # 1,7T$ 


- Fermeture de la liaison : 
ICLOSESIO 
CLOSE #1 


Le plus complexe et de loin chez AMS- 
TRAD, ce sont les deux commandes 
d'envoi préception de chaîne. Voilà ce 
que nous avons compris : 

- Avant de recevoir une chaîne T$, il faut 
d'abord préparer son ‘lit’, c'est-à-dire 
une chaîne de blancs de même longueur 
(maxi 255 bien sûr), par exemple 
T$=SPACES(80). Puis son ‘’adresse 
relative'’ par exemple S%=0 ou 
E% = 3000, peu importe (là, ne cherchez 
pas à comprendre.….). 

Puis, on met le tout à la suite de IIN- 
BLOCK mais précédé du ‘‘’a commer- 
cial’’. La chaîne reçue est par exemple 
“TOTO”. Hé bien T$ n’est pas égale à 
“TOTO'', mais à TOTO suivi de 76 
blancs, puisqu'au départ il y en avait 
80... En fait, ces lettres sont venues se 
substituer aux caractères de gauche. 
Deux conséquences : 

e Il est souhaitable de connaître la lon- 
gueur LC de la chaîne à recevoir. 

° Avant chaque entrée de chaîne, il faut 
chaque fois ‘‘raffraîchir'’ par un 
T$ = SPACES$(LC). On en profite pour se 
confirmer la valeur de E% ou S% 

Bien sûr, un T$ =SPACES$(255) serait 
sécurisant, mais quel gâchis mémoire 
pour des chaînes courtes ! D'où notre 
astuce : l'émetteur (le PC) envoie tout 
d'abord la /ongueur de la chaîne qui va 
suivre. Côté AMSTRAD, on fait T$ 
=SPACES$S(4) pour recevoir ce 
STR$(LC), . d'où LC, puis T$ 
= SPACES$(LC) pour recevoir la chaîne en 
question. Cela paraît compliqué, mais 
cela n'a jamais planté ! 

Pour l'envoi vers le PC, nous accolons un 
CHR$(13) à la suite de T$ (sauf s'il fait 
255 caractères). En effet, le PC le reçoit 
par un INPUT ; il lui faut bien un 
‘ENTER’ artificiel. 


LE DEROULEMENT 
DES PROGRAMMES 


Par vos réponses du début de pro- 
gramme, le CPC connaît le sens du trans- 
fert (1 = envoie ; 2 = recoit}, le nom 
sur CPC et le nom sur PC. 

Puis, il se met en attente série en vous 


invitant à presser F2 sur le clavier du PC 
(= RUN). Ce dernier envoie trois fois une 
chaîne de cinq dièses, puis une chaîne 
de cinq astérisques. C'est le signäl 


attendu par l'AMSTRAD = 
correcte'’. 

Le CPC communique à l'IBM le sens et 
nom de son fichier. Exemple 2 et 
‘“’B:TRUC.DAT”", le tout signifiant trans- 
met le fichier TRUC.DAT se trouvant sur 
ton drive B, alors que 1 et ‘’A:CHOSE”’ 
signifierait apprête-toi à recevoir un 
fichier que tu enregistreras sur le drive 
A sous le nom de ‘’CHOSE””’. Lorsque le 
micro émetteur a terminé son fichier, il 
envoie un signal fin sans équivoque à 
savoir /*FINCPC*/ dans le sens 1 ou 
/*FINIBM*/ dans le sens 2. Le receveur 
n'enregistre pas ce signal, il clôt l’enre- 
gistrement et la liaison série. L'IBM s'ar- 
rête par un END, l'AMSTRAD revient au 
menu de départ. 

Quel que soit le sens, les fiches transi- 
tées apparaissent simultanément sur les 
deux écrans, en scrolling. Lorsque 
l'AMSTRAD recoit un fichier IBM, son 
écran passe en MODE 2. 

Dans les deux programmes on rencon- 
tre des boucles d'attentes genre 
FORW = 1T0300. Ce sont des sécurités 
qui pourraient être restreintes ; nous 
avons préféré la sécurité aux records de 
vitesses. 


‘liaison 


NOS TESTS 


Afin de s'assurer de la parfaite fiabilité 
de cet ensemble matériel/programmes, 
nous avons conçu des fichiers bidons 
pleins de traîtrises en tous genres (vous 
imaginez le pire, vous avez raison...). 
Sens CPC-PC, examen par TYPE sur PC. 
Sens PC-CPC, examen par TYPE pour le 
comparer à l'original. Egalement un 
fichier normal de 14000 octets de 586 
fiches : dans tous les cas, 100 % de 
réussite. 

Attention ! Un programme BASIC en 
ASCII transféré sur IBM dhit être 
‘’renommé’’ en .BAS, afin qu'il puisse 
être rechargé par LOAD. 

Le matériel utilisé fut le suivant : AMS- 
TRAD CPC 464 + drive DD1 ; ‘‘compa- 
tible PC-XT'’ portable marque ‘‘COM- 
PAQ'" équipé d'une carte série de mar- 
que ‘‘IBM"'. 


CONCLUSION 


La liaison série entre deux micro- 
ordinateurs est l'Esperanto des Incompa- 
tibles. Outre les programmes BASIC, on 
peut faire de même avec des ‘’program- 
mes sources’” en d’autres langages, par 
exemple en PASCAL. Les applications 
pratiques ne manquent pas |! 

A partir de nos deux programmes, vous 
pourrez en concevoir d'autres pour 
‘’négocier’’ des fichiers ASCII avec d'au- 
tres micro-ordinateurs, APPLE par exem- 
ple. Les une ou deux soirées de mise au 
point seront très vite amorties ! 
L'interface série AMSTRAD a d'autres 
utilisations, on en reparlera bientôt... 


18 ‘ COMMIBM — Echanges AMSTRAD CPC/IBM- 
PC et Compatibles 

20 ‘ Michel Archambault -— 9/11/86 

50 ‘ avec Interface RS 232 AMSTRAD 


40 ‘ Transfere Fichiers ou Programmes en 
ASCII uniquement. 
90 ‘ Associe avec PC-CPC.BAS sur I1BM-PC 


100 DEFINT I-N 

11@ OPENOUT "BIDON":MEMORY HIMEM-1:CLOSE 

OUT 

1000 MENU 

1010 INK G,1:INK 1,24:PEN 1:PAPER @:MODE 
1:CLS:F0Q-0:FCAT-=0 

1020 LOCATE 3,4:PEN S:PRINT "AMSTREA 
D <-—-—--3 I1IBM-PC" 

1050 LOCATE 11,7:PEN 2:PRINT "Michel Ârc 

hambault":PEN 1 

1040 LOCATE 2,12:PRINT "Envoyer , 

ir , Cat , 

20000 

1050 SENS=K: ON K GOSUB 10000,11000,1200, 

13500 

1060 IF FCAT OR FQ THEN 1000 

1100 CLS:GOSUB 7000:° INIT RS 232 

1110 LOCATE 8,1G:PRINT CHR#$(7) ; "RUN ( ou 
F2 ) sur le PC" 

1120 GOSUB 6000: ’ HANDSHAKE 

1150 ON SENS GOSUB 2000,3000 

114G GOTO 1000 

1200 CAT 

1210 CLS:FCAT=1: CAT 

1220 G$="":WHILE Q$="":Q$=INKEYS: WEND 

1230 RETURN 

1300 CLS:END 

2000 ENVOI DE FICHIER 

2010 CLS:LOCATE 13,1:PRINT "LIAISON CORR 

ECTE.":PRINT 

2020 T$=STR$ (SENS) : GOSUB 9000 

2050 T$=FICI$:GOSUB 9000 

2040 WHILE NOT EOF 

2050 LINE INPUT#H9,T#$:GOSUB 9000 

2060 PRINT T#$:WEND 

26070 CLOSEIN 

2080 T$="/*FINCPC+*/":GOSUB 9000 

2090 FOR W=1 TO 1G0G:NEXT 

2100 :CLOSESIO 

2110 RETURN 

3000 ‘ RECEP FICHIER 

5010 INK G,20:INK 1,@:MODE 2 

3020 LOCATE 32,1:PRINT "LIAISON CORRECTE 

.":PRINT 

350350 T$=STR$ (SENS) : GOSUB 9000 

3040 T$=-FICI$:GOSUB 9000 

3050 GOSUB 8000 

5060 GOSUB 5000 

35070 PRINT T#$ 

3080 IF LEFT#(T$,10)="/*FINIBMx/" THEN 3 


Recevo 
Quitter 7":TEX$="ERCQ":GOSUB 


3090 PRINT#9,T$ 

3100 GOTO 3050 

3200 CLOSEOUT 

3210 T$=CHR$ (13) : GOSUB 5000 
3220 FOR W=1 TO 2000: NEXT 

: CLOSES10 

3500 RETURN 


0000 RECEP CHAINE 

9010 T$=SPACES$ (LC) : S2=-0 

9020 : INBLOCK,GS7Z,GT# 

0050 FOR W=1i TO 200: NEXT 

5040 RETURN 

68000 ‘ HANDSHAKE 

6818 LC=S5 

6020 LOCATE 2,13:PRINT "Je verifie la Li 
aison avec le PC ..." 

660530 WHILE T$<>"#####": GOSUB 5000: WEND 
6040 T$=CHRS# (13) : GOSUB 5000 

610G@ RETURN 

7800 ‘ PARAMETRES RS 232 AMSTRAD : 


76010 ‘ 9600 bauds; 7 bits; parite NULLE; 
1 bit d'’arret 
7020 :SETS1I0,9600,9600,1,7,0,0 
76050 :SETTIMEOUT,8000 
7840 : SETBLOCKEND, 13 
7850 Cablage du NUL-MODEM: 2-33: 35-232 
4-25; 55-245 6+8->20; 7->7; 20->:6+8 


7100 RETURN 

8000 RECEP LONGUEUR CHAINE 

86010 LC=6: GOSUB 5000 

8020 LC=VAL(T$#):1F LC=G THEN 8010 
8100 RETURN 

90008 ENVOI DE CHAINE 

9010 LO=LEN(T#):E%X=0 


XKKXKXXKAKKKEXARKKEKERARKKEXERKKERARKENAK 
LOGICIEL44 5 rue des grands courtils 44400 REZE 


R. en 


ORTHOGRARPHE 


avec la disquette de LOGICIEL 44 
2000 questions 
50 règles d'orthographe 
assistance en cas d'erreur 
utilisable dès l'age de 8 ans 
enregistrement des résultats 
visualisation des progrès 
testée avec plus de 300 élèves 
rédigée par des enseignants 
compatible AMSTRAD 464,664,6128 


: 10OO F+frais de port 20 F 


x x X x X x X Xe M x X Xe XX D Xe D Xe D 36 
X X x X x X x X x X x X x X x X x X x X x X 


x 
x Adresse: x 
X x 
X coanande disquette à 100 F + 20 F de frais de port x 
x Je joins un chèque de F à l'ordre de X 
x LOGICIEL 44 5 rue des grands courtils 44400 REZE X 
KHAN HO KOKOK OK OK KOK KOK KOK HOKKOKOKOKKOKKOKAOHHUK 
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9020 :OUTBLOCK,@8EX,@T+$ 

9050 FOR W=i TO SGG:NEXT 

9040 IF LC>254 THEN 9100 

9050 RC$=CHR$ (13) :EZ=0 

9060 :OUTBLOCK,@E7Z,G@RC+# 

9070 FOR W=i TO 1@G:NEXT 

9100 RETURN 

180008 ‘ NOM A ENVOYER 

10016 CLS:PRINT "NOM du FICHIER CPC a tr 

ansmettre (ou Q)":PRINT 

1002Q INPUT"---3> ",FIC$ 

10050 IF UPPER$(FIC$)="Q" THEN FQ=1:GOTO 
105300 

1004G LOCATE 6,1G8: PRINT "Il sera en DRIV 

E B sur le PC." 

10050 LOCATE 3,12:PRINT "Il portera le m 

eme nom sur Disc PC." 

100608 LOCATE 18,15:PRINT "OK ?7":TEX#="ON 
"=: GOSUB 50000 

10070 1F K=1 THEN FICI$="B:"+FIC#$:GOTO 1 

G200 

10080 CLS:LOCATE 11,10:PRINT"sur quel DR 
IVE PC ?":TEX$="ABC":GOSUB 50000 

10090 D$=MID#(TEX#$,K,1)+":" 

180100 CLS:LOCATE 7,10:PRINT "son nom sur 
PC ";D$;:INPUT"",FICIS 

10110 FICI$=D#$+FICIS 

10200 OPENIN FIC$ 

1030@ RETURN 

1100G ‘ NOM A RECEVOIR 

1101G CLS:PRINT "NOM du FICHIER IBM-PC a 
recevoir (ou Q)'":PRINT 

11020 INPUT"---5 ",FICIS$ 

11050 IF UPPER$(FICI$)="Q" THEN FG=1:6GOT 

O 11500 

11@4Q LOCATE 6,1@:PRINT "IL est en DRIVE 
B sur le PC." 

11050 LOCATE 2,12:PRINT "IL aura le meme 
nom sur Disc AMSTRAD. " 

11060 LOCATE 18,15:PRINT "OK ?7":TEX$="ON 
“: GOSUB 50000 

11070 IF K=1 THEN FIC$=FICI#$:FICI$="B: "+ 
FICI$:GOTO 11200 

11080 CLS:LOCATE 11,1G:PRINT"sur quel DR 
IVE PC ?":TEX$="ABC":GOSUB 50000 

11090 D$=MID$S(TEX$,K,1)+"2:" 

11100 CLS:LOCATE 5,10: INPUT"son nom sur 
AMSTRAD ",FIC$ 

11110 FICI$=D#$+FICIS 

11200 OPENOUT FIC# 

11300 RETURN 

900008 ‘ REPONSE À UN MENU 

90010 LT=-LEN(TEX#) 

50020 LOCATE 15-LT,24:PRINT"Reponse ("; 
90050 FOR I=1 TO LT-1 

00040 PRINT MID#(TEX#,1,1)5;","3;2:NEXT 
90050 PRINT RIGHT#(TEX#,1):")";CHR$ (154) 
3 CHR (245) ; CHR$ (207) 

00060 TEX$=UPPERS$(TEX#) 

90070 R$="":WHILE R$="":R$=INKEYS: WEND 
90080 R$=UPPERS(R#) :K=INSTR(TEX#,R#) 
0090 IF K=Q THEN PRINT CHR$#(7) ; :GOTO 50 
G70 

90100@ RETURN 

65000 ‘* -- FIN DE LISTING -—- 
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19 * PC-CPC — ECHANGES AVEC AMSTRAD CPC 
280 ‘ IBM PC & Compatibles - Michel Archambau 
it — 09/11/86 

38 ‘ Associe a COMMIBM.BAS sur AMSTRAD 
106 CLS:KEY OFF:CLEAR:PRINT'"Je teste la Liai 
son" 

110 WIDTH "“COM1:",255 

120 OPEN "COM1:9600,N,7,1,DS15000" AS #1 
13G GOSUB 4000: ° HANDSHAKE 

140 FOR W=1i TO 9ODG:NEXT 

150 PRINT"'LIAISON CORRECTE. ":PRINT 

16G GOSUB 5009:SENS=VAL (R#) 

170 FOR W=1 TO 8@GG:NEXT 

180 GOSUB 5000:FIC$=R# 

190 ON SENS GOSUB 2000,:3000 

900 ‘ FIN 

918 CLS:LOCATE 12,22:PRINT "TERMINE . IL FAU 
DRA ME RELANCER PAR RUN" 

920 END 

2000 ‘ RECEP FICHIER 

2810 CLS:PRINT" Je receptionne ";FIC#:PRINT 
20206 FOR W=1 TO S@G:NEXT 

2830 OPEN FIC$ FOR OUTPUT AS #2 

2840 FOR W=1i TO SOG:NEXF 

2050 GOSUB 5008: PRINT R# 

20606 IF LEFT#$(R#$,10)="/*FINCPC*/" THEN 2090 
2078 PRINT#2,R# 

2080 GOTO 2050 

2090 CLOSE#2 

2100 CLOSE#1 

2110 RETURN 

30008 ‘ ENVOI FICHIER 

35910 CLS:PRINT" J'envoie "sFIC#: PRINT 
3020 OPEN FIC$ FOR INPUT AS #2 

5050 WHILE NOT EOF (2) 

3040 LINE INPUTH#2,T#:PRINT T+# 

S050 GOSUB 6000 

35060 WEND 

3070 CLOSE#2? 

3080 FOR W=1 TO 3GG:NEXT 

35090 T$="/x*xFINIBMx/"+CHR$ (10) 

3100 GOSUB 6000: PRINT T# 

3110 FOR W=i TO 1G@G:NEXT 

3120 CLOSE#1 

3130 RETURN 

40008 ‘ PRE-ENVOI 

4010 FOR R=i TO 5 

4026 FOR W= 1 TO S@G:NEXT 

4050 PRINT#1,"##H#HH" 

4040 NEXT 

4050 FOR W= 1 TO SOG:NEXT 

4068 PRINT#H1,"#%%%%%": 

4070 PRINT#1,"" 

4080 RETURN 

90006 ‘“RECEP CHAINE 

5010 LINE INPUT#1,R# 

5020 RETURN 

6000 ENVOI CHAINE 

6018 LC$=STR$ (LEN(T#)) 

6828 PRINT#1,LC# 

6830 FOR W=1 TO 1@G:NEXT 

6840 PRINT#1,T$ 

68508 FOR W=1 TO 20G:NEXT 

68686 RETURN 

65088 ‘ — FIN DE LISTING - 


GRAPH IN THE BOX 
LE GRAPHEUR MAGIQUE 


Marcel LE JEUNE 


Imaginez un programme graphique qui 
séjournerait discrètement au fond de la 
mémoire de votre PC au point de se faire 
oublier. Il suffit de le charger dès le matin 
et vous pouvez ensuite utiliser comme 
d'habitude votre programme de compta, 
votre tableur ou votre traitement de texte 
préféré. 

Et c’est là qu'intervient le côté magique 
de Graph in the Box. Votre écran vous 
présente une pléiade de valeurs numéri- 
ques que vous aimeriez voir sous forme 
graphique, ne serait-ce que pour vous 
prouver que votre bilan n'est peut-être 
pas aussi catastrophique qu'il n'y paraît. 


Eh hop ! Une pression sur Alt + G et” 


voilà un petit curseur qui apparaît au 
milieu de l’écran. A l’aide des flèches, 
amenez-le dans le coin supérieur gauche 
du tableau numérique. Un petit coup sur 
Enter et on recommence l'opération pour 
l'amener cette fois dans le coin inférieur 
droit de la zone à capturer qui passe en 
vidéo inverse. Un autre petit coup sur la 
touche Enter et les données sont dans 
la boîte ! En appuyant sur F10 et, en une 
fraction de seconde, vous avez votre pre- 
mier graphique présenté sous forme 
d'histogrammes, en couleur (si votre 
écran le permet) et joliment calibré et 
tout et tout ! L'opération de capture 
n'aura duré que cinq secondes. La publi- 
cité n’exagérait pas. Etonnant non ? 

Mais l'opération de capture ne repré- 
sente qu'une infime partie des possibili- 
tés du programme. Vous pouvez natu- 
rellement modifier, supprimer ou rajou- 
ter des données dans le tableau qui peut 
être étendu à 15 colonnes. Vous pouvez 
également ajouter un titre à votre des- 
sin, un nom à chaque graphe et rensei- 
gner les abcisses et les ordonnées. La 
calibration de l’échelle des Y peut être 
automatique ou manuelle ; dans ce cas, 
vous devrez spécifier les valeurs Y min 
et Ÿ max, ainsi que l’incrément. Si vous 
le souhaitez, le programme imprimera les 
valeurs numériques dans le graphe. La 
routine d'impression est configurée de 
manière à s'adapter à la plupart des 
imprimantes matricielles, à jet d'encre ou 


à laser de même qu'à de nombreuses 
tables traçantes. Afin de bien séparer les 
courbes, le programme vous offre le 
choix entre plusieurs trames. De même, 
vous disposez de deux tailles d'impres- 
sion : soit pleine largeur, soit demi 
largeur. 

L'option ‘‘fichiers’’ permet d'effectuer 
des sauvegardes sur disquette de vos 
plus beaux graphiques pour une utilisa- 
tion ultérieure. 

Nous n'avons parlé jusqu'à présent que 
d’histogrammes, mais Graph in the Box 
est capable de vous présenter vos résul- 
tats dans l’un des formats suivants : 
— histogramme simple, 

— histogramme cumulé, 

— barres horizontales, 

— barres cumulées, 

— lignes, 

— lignes et zones pleines, 

— paliers, 


— paliers et zones pleines, 
— nuages de points, 

— affichage mixte, 

— et enfin sectoriel. 


Notons enfin qu'il peut corésider sans 
interférence avec PC-Kick, autre fleuron 
des logiciels cachés, également édité par 
AB Soft. Après avoir essayé de nom- 
breux autres programmes graphiques 
(sur de nombreuses machines), certains 
valant jusqu’à trois fois son prix, j'ai 
choisi Graph in the Box qui, à mon avis, 
présente, et de loin, le meilleur rapport 
performances plus confort d'utilisation 
sur coût. Tellement simple qu'il ne 
nécessite pas de manuel d'utilisation ! 


Graph in the Box 

Edité par AB Soft International 
Distribué par AB Soft et Softissimo 
Prix : 980 F HT. 


BOHOMO COMPUTER SHOP Inc. 
Ventes matériel 1986 
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MASTERFILE 8000 


LE GESTIONNAIRE DE FICHIERS LE PLUS ATTENDU SUR PCW ! 


ATTENTION, MASTERFILE 8000 n'est pas un programme BASIC compilé 
rapidement adapté du CPC au PCW ! C'est un produit entièrement 
nouveau, qui bien qu'il ait gardé le meilleur des caractéristi- 
ques de la version CPC, a été créé spécialement pour le PCH. 
Les autres produits disponibles offrent un choix entre des 
fichiers en RAM rapides mais de capacité limitée, et des 
fichiers en accès direct sur disquettes, de grande capacité 
mais encombrants car de longueur fixe. MASTERFILE 8000 et le 
disque RAM du PCW travaillent ensemble pour vous proposer une 
grande capacité et un accès rapide à des données de longueur 
variable, La longueur de vos fichiers n'est limitée que par la 
taille de votre disque M. L'abscence d'accès disquettes en 
cours de travail représente un gain de temps et une économie 
d'usure mécanique appréciables. 

MASTERFILE traditionnellement champion toutes catégories pour 
la création de masques de saisie et de présentation des données 
s'est surpassé. Tous les questionnaires et menus ont disparus, 
vous créez 'en temps réel' à l'écran vos masques, comme dans un 
programme de dessin. La mise à jour d'enregistrements est 
directe grâce à l'éditeur ‘pleine page' du programme qui permet 
les modifications et corrections de rubriques directement sur 
le masque. Des options uniques permettent de gérer les dates en 
français: 7 janvier 1987 au lieu de 870107 par ex. , de placer 
M. Mme, Mlle, etc. devant les noms tout en gardant la 
possibilité de trier ceux-ci, d'effectuer des calculs entre 
Champs etc... Tout l'affichage écran est GRAPHIQUE et les 
effets - lignes, boites - sont dessinés avec précision, les 
interlignes se choisissent en pixels. Tout ceci plus rapidement 


que CP/M ne le permet normalement. Les options de l'imprimante 
PCW sont toutes accessibles par menu. 

Les fichiers indexés sont automatiquement classés en séquence 
et ne devront jamais être triés. Vous pourrez aussi créer des 
fichiers non indexés, dans lesquels vous pourrez insérer des 
données où vous le voudrez. Il est possible de créer des fich- 
iers ‘relationnels' ayant jusqu'à 8 niveaux. Vous pourrez imp- 
porter/£usionner Eout fichier ASCII (par ex. de MASTERFILE III} 
ou exporter des données par ex. vers un traitement de textes 
comme TASWORD 8000. La fusion de fichiers est aussi possible; 
pour les fichiers indexés, il s'agit d'un véritable 'merge' et 
non pas d'un ajout. Cette fonction permet la copie de Fichiers 
en modifiant l'ordre des clés. De nouvelles rubriques peuvent 
être créées en tout temps. La recherche des fichiers combine 
flexibilité et rapidité et comprend toutes les options de tri 
habituelles: alphabétique, numérique, croissant/décroissant, 
logiques, par dates etc... Il vous est même possible d'assigner 
dans des cases [7 au maximum) pendant le tri, des sous-ensem- 
bles de données pour référence ou traitement ultérieur. Le plus 
souvent MASTERFILE 8000 vous attendra, pas le contraire... 

MASTERFILE 8000 est entièrement dirigé par menus, 100% en code 
machine, il est livré avec une bibliothèque d'exemples directe- 
ment utilisables et un manuel didactique détaillé. Aucun autre 
SGBD (Système de Gestion de Bases de Données - uz grand mot 
pour décrire un ‘carton à chaussures plein de fiches'...l sur 
PCW n'offre une telle puissance, flexibilité et convivialité. 


HR ED REED NE RCI D A VAR AE LE 


TASWORD 8000 RETROUVEZ LA SIMPLICITE ET LA PUISSANCE DE L'ECRITURE ! 


Accès direct à toutes les lignes, pages de votre texte en moins de 7 secondes ! Impression sélective 
de parties de texte sans attente. Aucun accès au disquettes en cours de travail. Fichiers de 90 Ko 
sur PCW 8256 et 320 Ko sur PCW 8512. Fonction ‘publipostage' puissante et flexible INCORPOREE ne 
nécessitant aucun autre programme. Accès à toutes les imprimantes via l'interface Centronics/RS232 du 
PCW (ces pages ont été entièrement créées sur le PCW et une imprimante 'LASER'|. Conversion des 
fichiers Locoscript et utilisation des fichiers Tasword/Amsword CPC et 
Compatibilité avec Masterfile 8000, dBase et tous les autre gestionnaires de fichiers sérieux. 

NOUVEAU: le programme GESTION-PLUS GP II de la maison ARKENCIEL, 

TASWORD 8000 permettant l'utilisation du fichier clients pour le publipostage et la 

création de documents tels que relances, lettres personnalisées, devis complets etc. 
Toutes les marques mentionnées sont déposées et appartiennent à leurs propriétaires respectifs. 
Les progiciels Sémaphore ne sont PAS protégés pour permettre la création de copies de secours. 


TASWORD PC 


Le Traitement de textes POUR LES PC IBM, 
L'AMSTRAD PC 1512 ET AUTRES COMPATIBLES" 


FACILE ! 
La force des Traitements de textes TASWORD a toujours été leur 
simplicité, aucun programme du genre n'offre autant de puis- 
ance avec une telle facilité d'accès. Le programme didactique 
intéractif 'Tuteur', livré gratuitement avec chaque TASWORD PC 
permet une prise en main rapide, peu après avoir reçu votre 
disquette vous produirez sans peine vos premiers documents. 
Avec TASWORD PC vous pouvez écrire sans avoir à lire de volu- 
mineux manuels. TASWORD PC ne demande l'apprentissage d'aucun 
langage ou procédure compliqués. Vous tapez comme sur une 
machine à écrire mais avec toutes les options magiques du TDT. 

PUISSANT 

TASWORD est aussi livré avec le puissant programme de 'publi- 
postage "MAIL-MERGE", un outil qui se pliera à vos plus folles 
exigeances en la matière . Une série d'exemples de fusion est 
livrée sur la disquette avec un guide de prise en main pas-à- 
pas. Une autre qualité de TASWORD PC est la facilité avec 
laquelle il se modèle pour épouser aux mieux VOS désirs et les 
caractéristiques de VOTRE matériel. À l'impression par ex., il 
est possible d'adapter TASWORD pour utiliser pleinement toutes 
les fonctions de votre imprimante: choisir le nombre de copies 
l'interligne, les en-têtes et pieds-de-page, la numérotation, 
la fusion - en cours de travail - de textes contenus sur 
disquette. Toutes les écritures et effets divers offerts par 
votre imprimante sont accessible avec simplicité. 

Plus de 20 options de déplacement dans le texte, la longueur 
de vos documents n'est Timitée que par la mémoire disponible, 
pas d'acces disquettes en cour de travail d'où rapidité accrue 
k moins d'usure du matériel, justification, frappe "au 
kilomètre", déplacement de blocs, reformatage, fenêtre de 
travail de 256 colonnes, tabulations et règles définissables 
avec bibliothèque de tabulations, menus d'aide constamment 
disponibles - même simultanément avec la saisie, neuf options 
d'effacement, deux options et deux modes d'insertion, 
recherche et recherche/remplacement de texte globale ou 
sélective, etc., etc., ... TASWORD PC produit des fichiers 
ASCII et est donc compatible avec la plupart des gestionnaires 
de fiches et des autres traitements de textes pour PC. 


La récupération des fichiers créés sur Tasword Spectrum, 
Tasword/Answord CPC et Tasword 8000 est possible. 


Un correcteur d'orthographe en français est en préparation. 


UN ESSAI POUR 70 FF. C'est tout ce que vous coûte la 


possibilité de vous convaincre de la puissance et de la 
Simplicité de TASWORD PC. Le prix de la disquette d'essai 
TASWORD PC vous sera crédité en cas d'achat du programe. 


MASTERFILE 8000 490 FF HT 
TASWORD 8000 380 FF HT 
TASWORD PC 380 FF HT 


Wordstar possible. 


est maintenant compatible avec 


e 
NOMME 2%, Ge HS Ba do ix LS 4 Sauf imprévu, les commandes D < 


| sont exécutées dans les 48H —(. 
PÉéNOMS 25 à dis où mas ve suivant leur réception. 
(validité jusqu'au 30.03.87) Fe 
AdFéSSe: à: + à + à 4 à os à à 
Sémaphore Logiciels Bou 
ER Case Postale 32 4 
5 : — 
Code POSEARS LS uS sun ee à CH-1283 La Plaine (Suisse) = 
NÉLESS- 1h à Hé à D HAS 
J'ai le plaisir de vous passer commande pour les articles suivants, 
Gamme CPC Prix HT Totaux 
Tasword: 464 SUF Cassette: 2:22 Bin eus nero ere to ea 4 195,00 FF 
Tasword "D" ou 6128 "Mailmerge" sur disquette ...... 280,00 FF 
Masterfile III ( 128K } sur disquette .............. 300,00 FF 
Mastercalc 128 sur disquette ....................... 280,00 FF 
Agenda.CPC sur disquette. 14324 Luna she de bit 195,00 FF 
Tasprint CEC-SUE Cassette 4 sub grereie niet lien 06 170,00 FF 
Tasprint CPC Sûr disquette 44488 à gum "elue de nas 195,00 FF 
Tascopy: CPC Sur cassette ::1xhteuunte saake msn 170,00 FF 
Taäscopy CPC:-SUr disquette... ss me ne motns sitio dub sieurs 195,00 FF 
Crayon optique DART logiciel disquette ............. 280,00 FF 
Raccord pour crayon et 6128 Amstrad ................ 75,00 FF 
Cable conversion BUS 6128 Schneider/Amstrad ........ 150,00 FF 
Digitaliseur (scanner) DART pour DMP 2000 & 3000 ... 600,00 FF 
Scanner + Crayon OPTIQUE . 444. sv 8 60 0 60608 à e 810: 600 8 790,00 FF 
Multiface II (464/664/6128) ........................ 450,00 FF 
Extension mémoire DK'tronics 64Ko (464/664) ........ 430,00 FF 
Gamme PCWwW 
TaswoOrd' 18000 & saisine ts me ts entr ab bas eo Re IE Re Ce 380,00 FF 
Disquette d'essai Tasword 8000 ..................... 66,00 FF 
TASPDELAC: 8000 ee ren ol iterens ete tee ee Tnt iv or re ana 195,00 FF 
Tasword + Tasprint 8000 ............................ 520,00 FF 
Discmatée. 8000: Su int Suche naine de nai res ee Ve Lane ee ie 199,00 FF 
Masterfile 8000 (livraison mars 1987)............... 490,00 FF 
Jeu Extension 256Ko pour PCW ....................... 250,00 FF 
Thter£ace. 2ème lécteur 3,5: où 5,25 41 uex data ou 450,00 FF 
Lecteur 3,5 ou 5,25 de 720 Ko pour PCW ............ 1500,00 FF 
Gamme PC 1512 
Tasword PC (livraison mars 1987).................... 380,00 FF 
Disquette d'essai Tasword PC (disponible)........... 66,00 FF 
ExRbension à 1640 For PE EST Les se ea dupe Dani Se 250,00 FF 
Frais de port en recommandé, par commande .......... 25,00 FF 25,00 
Supplément de contré-remboursement :23: 4286 à bosse 25,00 FF ; 
TOTAL:FF 


La TVA (18,6%) se paye au facteur à la réception des marchandises - Revendeurs, contactez-nous. 
) Veuillez débiter ma carte de crédit du montant de ma comma 
VISA /EUROCARD:N, use the LILAS aid éRDr, aus 
}) Je vous envoie le montant de cette commande par: 


Eurochèque - Transfert bancaire - Mandat postal internat 
(CCP 12-16681.8 à Genève - Cpte D6-105,283.0 S.B.S Gen 


nde 


ional 
ève.) 


Les chèques français autres que les Eurochèques ne sont pas négociables à l'étranger, merci de ne pas en envoyer 


Date . . ne < Signature: 


CPC n.20 


Commandes par téléphone au 19.41.22.54.11.95 lundi à vendredi de 9 à 18H. 


FONCTION 


Pascal AURILLARD 


Le programme ‘’FONCTION’’ a pour 
objet de calculer, représenter, étudier les 
fonctions affines. C'est donc un éduca- 
tif qui servira aux élèves de 3° et de 
2nde. Il édite le résultat de l'étude d’une 
fonction sur l'imprimante et occupe 
23 ko en mémoire. Les variables princi- 
pales sont les suivantes : 
XTEXT = coordonnée x de l'affichage 
du texte 
YTEXT = coordonnée y de l'affichage 
du texte 


= message à afficher 
CO = couleur du message 

taille des caractères 
S = effet des caractères 
FOIS = nombre de fois ou le programme 
passe par un label 


CANAL = indique le canal courant 

Z = couleur du graphique 

B$ = contient la réponse à un menu 

Y3 Y4 = coordonnées y des deux points 
pour le graphique 


initialisation, 


X3 X4 = coordonnées x des deux points 
pour le graphique 

coordonnée x de a 

coordonnée y de a 

coordonnée x de b 

coordonnée y de b 

a dans l'équation y = ax + b 

b dans l'équation y = ax + b 


+QOQOnT 
Wu uun 


['e] 


Il y a d’autres variables mais elles ne ser- 
vent qu'aux formules. 

En cadeau, voici un truc pour avoir 60 ko 
sous BASIC2 : sur une copie du disk gem 
modifiez le fichier 
autoexec.bat. Supprimez toutes les com- 
mandes et remplacez-les par a:gemstart. 
Ensuite, chargez le programme NVR et 
allez modifier le disk virtuel. Remettez- 
le à O ko. Réinitialisez le pc et ça y est 
60 ko sous BASIC2. 


DEHHHE DH DH DE HE DE HE DE DE DE DEEE DE DD HD HD DEEE DE DEEE NEED EEE EH DEEE EN DIE EDEN DEEE DEEE DE DE DE DE EDEN 
‘ PROGRAMME CONCU ET REALISE PAR PASCAL AURILLARD 


, 


LE 10/01/1987 


HE HEDEHHEHEDEME DE DE NEED HD DE DEEE DE DEEE DEEE ÉD HE HDI DE DEEE DE DEEE DEEE DE DE HE DE DE DEN DEEE DE DE DE DEEE EN 


LÉSS RS SSSR ES ESS SSSR ÉS SSSR RS SE SSSR SSSR SSSR ES SSSR SSSR SSSR SSL SSL SSSR SSSR SES SSL ESS SE: 


ON ERROR GOTO erreur 


DEF FNf1(b,c,d,e,x)=((((x-b)#(e-c))/(d-b))+c) 
DEF FNf2(x3,b,d,c)=(({(x3#d)-(b#d))+c) 


CLOSE #1,4#2,H43 
CLOSE WINDOW 1 
CLOSE WINDOW 2 
CLOSE WINDOW 3 
OPEN #3 WINDOW 
OPEN #1 WINDOW 
OPEN #2 WINDOW 2? 


JC 


SCREEN #2 TEXT 29 FIXED, 78 FIXED 
SCREEN #1 GRAPHICS 400 FIXED,189 FIXED 


USER #1 SPACE 640,209 
USER #1 ORIGIN 0;0Q 
WINDOW #2 PLACE 1;11 
WINDOW #1 PLACE 239;11 


SCREEN #3 GRAPHICS 640 FIXED,189 FIXED 


WINDOW #3 FLACE 1:10 
PRE DE DEN DE HE DE DE DEEE 
LABEL menu 
PME ME DE DEN DE EDEN JE 
STREAM #3 
canal=5 
CLS #1 
z=2 
lis=0 
fois=0 
CLS 
a$="MENU" : GOSUB titre 
WINDOW OPEN 


co=2:t=20:xtext=25:ytext=1:s=&X0001001:a$="MENU" : GOSUB message 


SET #35 FONT (2) 


xtext=15:ytext=5:co=4:t=18:s=0:a$="REPRESENTER UNE DROITE 


R"': GOSUER 


C":GOSUB message 
E":GOSUB message 


message 

ytext=9:a$-"CALCULER UNE EQUATION 8 
ytext=1z:a$="ETUDE D'UNE FONCTION L 
ytext=17:a$="RAFPORT ENTRE DEUX DKOITES : D'"': GOSUB message 
EE EEE EEE 

LABEL choix 

PEER DE DE DE DE DEEE 

a$=" ‘FR’ "CE" "E’ D’ “"“:GOSUR commande 


IF b$="R" THEN GOTO representer 
IF b$="C" THEN GPTO calculer 

IF b$="E" THEN canal=2:G0T0O etude 
1F b$="D" THEN GOTO rapport 

PRINT CHR$(7) 


GOTO choix 

PME MEME DE DE DIE DE DE DE DE DEEE 

LABEL representer 

PE DIE DE DE DE DE DE DE DEN JEJEENE 
STREAM 3 
canal=3 
CLS 
a$="MENU POUR REPRESENTER UNE DROITE":GOSUB titre 
xtext=15:ytext=2:co=2:t=20:s=&X0001001:a$="REFRESENTATION GRAFHIQUE":GOSUE messa 
ge 
xtext=5:ytext=8:co=4:t=-18:s-0:a$-"D'APRES DEUX POINTS ":GOSUR message 
xtext=7/70:a$=": P":GOSUB message 
xtext=5:ytext=12:a$="D'APRES UNE EQUATION DE DROITE":GOSUB message 
xtext=70:a$=": D":GOSUB message 
xtext=5:ytext=16:a$="D'APRES UN POINT ET UN VECTEUR DIRECTEUR" :GOSUB message 
xtext=70:ab=": V'":GOSUB message 
PRIME EE DE DE DEEE DE DE DE DEN 

LABEL choix2 
PRIE DEEE DE DE DE DE DEEE 
a$=" ‘P'° ‘D’ "V'":GOSUB commande 
IF b$="P" THEN GOTO deux _ points 
IF b$="D" THEN GOTO equation 
IF b$="V" THEN GOTO vecteur 
PRINT CHR#(7) 
GOTO choix2 
PME DEEE DE DEEE DE DE DE IEEE 

LABEL deux _ points 
PME MEME DE DE DE DE DE DE DE DE DE DE DE DEEE 
STREAM 2 
canal=2 
a$="SAISIE DEUX FOINTS":GOSUB titre 
CLS 
WINDOW OPEN 
CLOSE WINDOW 3 
xtext=5:ytext-=2:s=&X0001000:co=2: t=10:a$="SAISIE DES COOURDONNES":GOSUR message 
s=0 
xtext=8:ytext=4:a$="DES DEUX POINTS":GOSUB message 
xtext=2:ytext=7:co=1:a$="ENTREZ LES COORDONNEES" :GOSUB message 
xtext=2:ytext=8:a$="X," DE A":6GOSUB message 
INPUT AT (11:8) ;b,c 
ytext=10:a$-"ENTREZ LES COORDONNEES": GOSUB message 
ytext=11i:at="X,Y"Y DE B":GOSUB message 
INPUT AT(11:11);d,e 
IF fois=0 THEN GOSUB repere:GOSUB retour:GOSUB trace ELSE GOSUB retour:GOSUB tr 
ace 
INPUT AT(1;19) "DESIREZ-VOUS TRACER UNE AUTREDROITE";0$# 
IF UPPERS(LEFT$(o$,1))="0" THEN z=z+i:fois=1: GOTO deux _ points 
GOTO menu 
PRENDRE DE D JE IE IEEE 

LABEL equation 
PARDE DE EEDE DE DEEE JE IEEE 
STREAM 2 
canal=2 
CLS 
a$="SAISIE DE L'EQUATION":GOSUB titre 
WINDOW OFEN 
CLOSE WINDOW 3 
xtext=5:ytext=2:s=-&X0001000:co=2:a$="SAISIE DE L'EQUATION":GOSUE message 
xtext=8:ytext=4:a$="DE LA DROITE":GOSUB message 

PER DE DEEE IEEE DEEE DEEE 

LABEL sous _menu 

MIS SSSSSSISS SES S: 
xtext=2:ytext-=7:co=1:s-0:a$="L'EQUATION EST SOUS LA":GOSUB message 
xtext=2:ytext=8:a$="FORME Y=AX+B":GOSUB message 
INPUT AT(2;11) "ENTREZ À "sf 
INPUT AT(2;13) "ENTREZ B ";g 
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x3S=-3520: x4=320: y3=0: y4=0 
REFEAT 


yS=(f#x3)+g:y4=(f#x4) +g 

t=10 

IF y3>99 OR y3<-99 THEN x3=x3+3.2: t=0 

IF y4>99 OR y4<-99 THEN x4=x4-3.2: t=0 

UNTIL t<>0O 

IF lis=2 THEN RETURN 

IF fois=0 THEN GOSUB repere:GOSUB trace ELSE GOSUB trace 

INPUT AT(1;19) "DESIREZ-VOUS TRACER UNE AUTREDROITE";0$ 

IF UPPERS (LEFT$(0$%,1))="0" THEN z=z+1:fois=1:GOT0 equation 

GOTO menu 

MEME DE DE DE DE DE DEEE JE 

LABEL vecteur 

PAIE DEDE DE DE DE DE DE DE DE DEEE 

STREAM 2 

canal=2 

CLS 

a$="POINT ET VECTEUR":GOSUB titre 

WINDOW OPEN 

CLOSE WINDOW 5 

xtext=5:ytext=2:s5s=-&X0001000:co=2:a$="SAISIE DU POINT ET":GOSUE message 
xtext=5:ytext=4:a$-="DU VECTEUR DIRECTEUR":GOSUB message 
xtext=2:ytext=7:s-0:co=1:a$="ENTREZ LES COORDONNEES": GOSUB message 
ytext=8:a$="X,Y DE A":GOSUB message 

INPUT AT(11:8)3;b,c 
ytext=10:a$="ENTREZ LES COORDONNEES": GOSUB message 
ytext=11:a$="X,Y DU VECTEUR":GOSUB message 

INPUT AT(21;11);d,e 
GOTO tout 

PRIME DEEE DE DE IE IE DE IEEE 

LABEL calculer 

PME DEEE JE DEEE JDE 
STREAM 3 
canal=3 
CLS 
WINDOW OFEN 
a$="CALCUL D'UNE EQUATION":GOSUR titre 
xtext=-16:ytext=2:t-20:co=2:s=8&X0001001:a$="CALCUL DE L'EQUATION":GOSUB message 
co=4:s=0:t=-18: xtext=5:ytext=9:a$="D'APRES DEUX POINTS ":G6OSUB message 
xtext=70:a$=": P":GOSUB message 

xtext=5:ytext=135:a$="D'APRES UN POINT ET UN VECTEUR DIRECTEUR" :GOSUB message 
xtext=70:a$=": V'":GOSUB message 

PME DE DE DE DE DE DEEE HE JE 

LABEL choix3 

PH MEDEMEDE DE DE DE DE DE DE IE DE 
a$=" ‘P° "V'":60SUB commande 

IF b$="P" THEN GOTO calcul _ points 

IF b$="V" THEN GOTO calcul_vecteur 
PRINT CHK$(7) 
GOTO choixs 

PRIE DE DE DE DE DD DE DE DEN DIE DE DE DE 

LABEL calcul _points 

PME DE DE DE DE DIE DE DE DE DE DIE DEEE 
STREAM 2 
canal=2 
CLS 

a$="CALCUL AVEC DEUX POINTS":GOSUB titre 
WINDOW OPEN 
CLOSE WINDOW 3 

xtext=5:ytext=2:s-&X0001000:co=2:a$-"CALCUL DE L'EQUATION":GOSUB message 
xtext=6:ytext=4:a$-"AVEC DEUX POINTS":GOSUB message 
xtext=2:ytext=7:s-0:co=1:a$="ENTREZ LES COORDONNEES" :GOSUB message 
ytext=8:a$-="X,Y" DE A":GOSUB message 

INPUT AT(11:8);b,c 

ytext=10:a$="ENTREZ LES COORDONNEES" :GOSUB message 
ytext=11:a$="X," DE B":GOSUB message 

INPUT AT(11;11);d,e 

FRERE EEE 

LABEL cal 

TARDE DE DE DE DE IE DEEE 


z=ztl 
x=10 
IF b=d THEN g=b:G0T0 equ2 
1F c=e THEN f=e:GOTO equs 
y=FNf1(b,c,d,e,x) 
f=(e-c)/(d-b) 
inv=-c:k=-b:g=(((d-b)#(inv))-((e-c)x(k))):g=g/ (b-d) 
x=2 
yd=FNfi(b,c,d,e,x):w=f#x+g 
YP=STRSE (yd) : ZH=STRE (w) 
IF z$<>y$ THEN SWAP e,c:SWAP d,b:GOTO cal 
GOSUB repere 
GOSUB retour 
GOSUB trace 
IF INT(e)<>e OR INT(d)<>d OR INT(b)<>b OR INT(c)<>c THEN GOTO affich_nor 
IF f£>INT(#f) THEN h=d-b:q=e-c:n=(((d-b)#h)-((e-c)#(k))):m=b-d: GOTO fraction_f 
IF g<>INT(g) THEN n=((ld-b)#h)-((e-c)#(k))):m=b-d:h=d-b:q=e-c:GO0OTO fraction _g 
PRE DE DE DE DE DE DE DE DE DE DE DE DEEE HE 
LABEL affich_nor 
PRIE MED DE DE DE DE DEEE DE DE EEE 
PRINT AT(1;15) COLOUR(4) "L'EQUATION EST Y="3;f;" X +";g 
GOTO demandes 
HE DEMEDE DE DE DE DE EE DIE DE DE EEE 
LABEL calcul _vecteur 
PER DEEE DE DE DE DE DE DE DE DD DEEE JE 
z=z+1 
STREAM 2 
canal=2 
CLS 
a$="CALCUL AVEC UN VECTEUR":GOSUB titre 
WINDOW OPEN 
CLOSE WINDOW 3 
xtext=5:ytext=2:s=&X0001000:co=2: a$="CALCUL DE L'EQUATION":GOSUR message 
xtext=6:ytext=4:a$="AVEC UN VECTEUR":GOSUB message 
xtext=2:ytext=/7:co=1:s=0:a$-"ENTREZ LES COORDONNEES" :GOSUB message 
ytext=8:a$="X,Y" DE A":GOSUB message 
INPUT AT(11;:8);b,c 
ytext=10:a$t="ENTREZ LES COORDONNEES":GOSUB message 
ytext=11:a$="X ET Y DU VECTEUR":GOSUR message 
INPUT AT(19;11);d,e 
lis=1 
IF d=O THEN PRINT CHR$(7):PRINT AT(1;15) “X DU VECTEUR=0":GOTO demandes 
f=e/d 
x=2 
Y=FNF2(%,b,f,c) 
inv=-f:g=((x#inv)+y) 
IF f=0 THEN GOTO equ2 
GOSUR tout 
IF INT(e)<>e OR INT(d)<>d OR INT(b)<>b OR INT(c)<ÿc THEN GOTO affich_nor2 
IF (e/d)<>INT(e/d) THEN h=d:q=e:n=(((inv#x)#d)+(x-b)#(c#d)):m=d:GOTO fraction _f 
IF g<>INT(g) THEN n=(((inv#x)#d)+(x-b)#(c#d)):m=d:h=d:q=e:GOTO fraction _g 
PE DIE DEEE DE DEDE DE DE JE DE DEEE 
LABEL affich_nor2 
PRE DE ME DE DE DEDE DE DE DE DE DE DE DEEE 
PRINT AT(1;15) COLOUR(4) "L'EQUATION EST Y=";#;" X +";:g 
GOTO demandes 
PRE IEENMEDEDEIEHE 
LABEL etude 
PRIE DEDE DEEE DEEE 
z=z+i 
STREAM canal 
lis=2? 
IF canal=2 THEN CLS 
IF canal<>0 THEN a$="ETUDE D'UNE FONCTION‘":GOSUB titre 
WINDOW #2 OPEN 
CLOSE WINDOW 3 
IF canal=0 THEN PRINT CHR$ (27) +"%"+CHRS$ (1) +CHR$ (27) +"p"+CHR$ (1) 
IF canal=0 THEN PRINT " “3 CHR$ (27) +"—-"+CHR$ (1) ; "ETUDE D 
"UNE FONCTION"; CHR$ (27) +"—"+CHR$ (0) ELSE xtext=5:ytext=2:s=&X0001000:co=2:a$="ET 
UDE D'UNE FONCTION":GOSUB message:xtext=6:ytext=4:a$="SUR L'ECRAN":G60SUB message 


1F canal<>0 THEN GOSUB sous _menu:CLsS 
IF canal=0 THEN PRINT:PRINT:PRINT: PRINT 


PRINT EFFECTS (&X0001000) COLOUR (2) “ETUDE DE LA FONCTION Y=";#f;" X +";g 
SET COLOUR 4 ° 
FRINT:PRINT:PRINT "L'ENSEMBLE DE DEFINITION EST ‘R'" 
PRINT:PRINT"'LE COEFFICIENT DIRECTEUR EST":PRINT "A=";# 

PRINT:PRINT"'LE VECTEUR DIRECTEUR EST":PRINT "V Q1;"3#f;")" 

IF #f>0 THEN PRINT:PRINT "LA FONCTION EST STRICTEMENT ":PRINT"CROISSANTE" 

IF f=0 THEN PRINT:PRINT "LA FONCTION EST CONSTANTE":PRINT 

IF f<O THEN PRINT:PRINT "LA FONCTION EST STRICTEMENT":PRINT "DECROISSANTE" 
PRINT:PRINT:PRINT "POUR X=1 ="; (f#1+9) 
FRINT "FOUR X=-1 Y="s (f#(—-1) +9) 

IF canal=0 THEN PRINT CHR#(12) 
ca=canal:GOSUB repere:GOSUB trace:canal=ca 

IF canal<>O THEN PRINT COLOUR (1) "VOULEZ-VOUS IMFRIMER" :PFRINT COLOR (1) "CETTE 
ETUDE ?":GOSUB interrogation 

IF canal<>0 AND b$="O" THEN STREAM O:canal=0: GOTO etuce 
STREAM 2:canal=2: SET COLOR 1:GO0SUB demandes 

CRRRRRRRRNRHNRE 

LABEL rapport 

RRRRRRRRRRRUN ER 
STREAM 2 
canal=2 

t=0 
CLS 
a$="RAPFORT ENTRE 2 DROITES":GOSUB titre 
WINDOW OPEN 
CLOSE WINDOW 3 

xtext=5:ytext=2:s=-&X0001000:co=2:a$="SAISIE DES 2 EQUATIONS":GOSUB message 
xtext=8:ytext=4:a$-"DES DROITES":GOSUB message 
xtext=2:ytext=7:co=1:s5=-0:a$="LES EQUATIONS SONT SOUS LA":GOSUB message 
xtext=2:ytext=6:a$="FORME Y=AX+B":GOSUB message 

INPUT AT(2;11) "ENTREZ A DE D1 ";f 

INPUT AT(2;12) "ENTREZ B DE D1 ‘";g 

INPUT AT(2;14) "ENTREZ À DE D2 ";#f2 

INPUT AT(2;15) "ENTREZ B DE D2 ";g2 

SET COLOUR 2 

IF f=f2 THEN PRINT:PRINT"'LES DROITES SONT":PRINT'"PARALLELES":t=100 

IF ABS(f)=ABS(#f2) AND f<>f2 THEN PRINT:co=2:PRINT"LES DROITES SONT": PRINT"PERPEN 
DICULAIRES":t=100 

IF t<>100 THEN PRINT:PRINT"'LES DROITES SONT SECANTES" 

SET COLOR 1 

xtext=1:ytext=20:a$-"DESIREZ-VOUS CONNAITRE":co=1:GOSUR message 
INPUT AT(1;21) "UN AUTRE RAPPORT";0$%$ 

IF UPPER$ (o$)="0" THEN GOTO rapport 

GOTO menu 

END 

MD DEEE DE DE HE DE DE DE DEEE 

LABEL commande 

PE DEEE DE DE DE DEEE EE 

PRINT AT(5;20) ADJUST(14) COLOUR(1) POINTS(14) "Entrez la commande desirez 
a%$ 

GOSUR interrogation 

RETURN 

MTL LSLSSSSSS: 

LABEL titre 

PE DEDEDEDEDEHEUEDEEN 

WINDOW TITLE a$% 

RETURN ° 

PME DE DE DE DE DE DEEE HE 

LAREL message 

ADEME DEEE JE DE DE DEEE 

IF canal=2 THEN PRINT AT(x*text;ytext) COLOUR (co) EFFECTS (s) a$:RETURN 
PRINT AT(xtext;ytext) ADJUST(t) POINTS(t) COLOUR (co) FONT (2) EFFECTS (s) a$ 
RETURN 

RME DE DE DEDE DE DE DE DE DE DE DE DE DE DE IE DE DE 

LABEL interrogation 

ADEME DE DE DE DE JE DE DE DE DE JE EN 

b$=UPPERS (INKEY$) 

IF b$="" THEN GOTO interrogation 

RETURN 


MT ISILLSLSS SL: 


LABEL repere 

PAR MEMDE DEEE NE 

STREAM 1 

canal=i 

USER ORIGIN 320; 100 

WINDOW OPEN 

a$="REPRESENTATION GRAPHIQUE" :GOSUB titre 

LINE 0:99, O;-99 COLOUR 1 L 

LINE -320:0, 320;:0 COLOUR 1 

RETURN 

PARENT 

LABEL retour 

PME MEDE MEME DE DE DE DEEE 

STREAM 1 

canal=i 

IF b=d THEN x5=b#3.2:x4=b#5.2:y3-=-99:y4=-99:G0OTO trace 
IF e=c THEN y3=e: y4=y3:x53=-320: x4=520:GO0OT0 trace 
XS=-320: x4=520: y3=0: y4=0 
REFEAT 

YS=FNf1(b,c,d,e,x3):y4=FNfi(b,c,d,e,x4) 

t=10 

IF y3>99 OR y3<-99 THEN x3=x3+3.2: 
IF y4>99 OR y4<-99.THEN »x4=x4-3.2: 
UNTIL t<>o 
RETURN 

PAR DEDEDE DE DEEE DEN JE 

LABEL trace 

PAM MED EE 
STREAM 1 
canal=i 
LINE x3;yS3, x4:5y4 MODE 1 COLOUR (z) 
STREAM 2 
canal=2 
RETURN 

PARMI DEEE 

LABEL tout 

ADDED 
STREAM 2 
canal=2 

f=e/d 

X3=-320: x4=3520 

y 3=0:y4=0 
REPEAT 

YI=FNF2(XS,b,f,c):y4=FNF2(x4,b,f,c) 

t=10 
IF y35>99 OR y3<-99 THEN x3=x3+3.2: t=0 
IF y4»>99 OR y4<-99 THEN x4=x4-3.2: t=0 
UNTIL t<>0 

IF fois=0 THEN GOSUB repere:G6GOSUB trace ELSE GOSUB trace 
IF lis=1 THEN RETURN 

INPUT AT(1:19) "DESIREZ-VOUS TRACER UNE AUTREDROITE";0% 
IF UPPERS(LEFT$(0$,1))="0" THEN z=z+1:fois=1:G60T0 vecteur 
GOTO menu 

FREE DE MED NE JE DE 

LABEL equ2 

PREND EEE 
PRINT AT(1;15) COLOUR(4) "L'EQUATION EST X=";g 
GOSUE repere 
GOSUR retour 
GOSUK trace 
GOTO demandes 

FEMME MEME JE NE 

LABEL equs 

FAR DEDEME MIE TE EEE 
PRINT AT(1:15) COLOUR (4) "L'EQUATION EST Y=";f 
GOSUB repere:GOSUB retour:G6OSUB trace 
GOTO demandes 

FARM MEEDEE DE DEEE DEEE JE 

LABEL demandes 

PER DE DE DEEE DE DE DEEE 
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PRINT AT(1;20) "DESIREZ-VOUS CALCULER/ETUDIER":INPUT AT(1;21) "UNE AUTRE EQUATIO 
N ";0$ 
IF UPPERS (LEFT$(o$,1))<>"0" THEN GOTO menu 
fois=1:1F lis=1 THEN GOTO calcul _vecteur 
IF lis=2 THEN GOTO etude 
GOTO calcul _points 
MEME DE DE DE DE DE DE DE DE DE DE DE IE DE 


LABEL fraction_f 
PAR DE DEN DE HE DE DEEE DE DE DE DEN 
REPEAT 
t=10 
IF qg/2=INT(q/2) AND h/2=INT(h/2) THEN h=h/2:q=q/2:t=0 
IF q/3=INT(q/3) AND h/3=INT(h/3x3) THEN h=h/3:q=q/3:t=0 
IF q/S=INT(q/5) AND h/S=INT(h/5) THEN h=h/5:q=q/5:t=0 
IF qg/7=INT(q/7) AND h/7=INT(h/7) THEN h=h/7:q=q/7:t=0 
IF q/11=INT(q/11) AND h/11=INT(h/11) THEN h=h/11:q=q/11: t=0 
UNTIL t<>0 
IF lis=1 THEN GOTO affich b 
IF n/m=INT(n/m) THEN GOTO affich_b 
PAEMEDE DE DE DE DE DE DE DE DE DEN JE DE 
LABEL fraction _g 
PME DE MEME DE DE DE DEN DE DE DE DE DE 
REPEAT 
t=10 
IF n/2=INT(n/2) AND m/2=INT(m/2) THEN n=n/2:m=m/2:t=0 
IF n/3=INT(N/3) AND m/S=INT(m/3) THEN n=n/3%:m=m/53:t=0 
IF n/S=INT(n/5) AND m/5=INT(m/5) THEN n=n/5:m=m/5:t=0 
IF n/7=INT(n/7) AND m/7=INT(m/7) THEN n=n/7:m=m/7:t=0 
IF n/11=INT(N/11) AND m/11=INT(m/11) THEN n=n/1i:m=m/11:t=0 
UNTIL t<50 
IF q/h=INT(q/h) THEN GOTO affich_a 
GOSUK signe 
PRINT AT(18;14) COLOUR (4) USING ("####");q AT (26:14); n 
PRINT AT(1;15) COLOUR (4) "L'EQUATION EST Y="5;"———-"3ux 4ms nu ————" 
PRINT AT(18;16) COLOUR (4) USING ("####")5h AT(26;:16) m 
GOTO demandez 
PME HD HE DE HE DE DE HE JE JE JE 
LABEL affich_a 
PRE DE DE DE DE DE DE DE DEN 
GOSUR signe 
FRINT AT(25;14) COLOUR (4) USING ("####")sn 
PRINT AT(1;15) COLOUR(4) "L'EQUATION EST Y="5#f5"XxX +", ———-" 
PRINT AT(25;16) COLOUR(4) USING ("####")m 
GOSUB demandez 
PJ DE MEDE DE DE DE DE DEN DE DEN 
LAEEL affich b 
PE DE DE DE DE DE JE DE DE DE JE 
GOSUB signe 
PRINT AT(18;14) COLOUR (4) USING ("###H##");q 
PRINT AT(1;15) COLOUR (4) "L'EQUATION EST Y=";"-——-"5"x +":g 
PRINT AT(18;16) COLOUR (4) USING ("####") h 
GOSUB demandes 
POMEDEME EE DE DEN DE DE DE 
LABEL signe 
MED DE DE DE DE DE NE 
STREAM 2 
canal=2 
IF SGN(h)=-1 AND SGN(q)=-1 THEN h=AES (h) :q=ABS(q) 
IF SGN(n)=-1 AND SGN(m)=-1 THEN n=AES (n):m=ABS (m) 
RETURN 
PME DEEE DE DE JE DEEE 
LABEL erreur 
PME DEDE ED DE HE DE JE JE 
IF ERR<>110 THEN inc=ALERT 2 TEXT "ERREUR INCONNUE" BUTTON "RETOUR AU MENU" ,RET 
URN "SUITE DU PROGRAMME" 
IF inc=1 THEN GOTC menu 
IF inc=2 THEN RESUME NEXT 
IF ERRK=110 THEN a=ALERT 2 TEXT "LA REFRESENTATION GRAPHIQUE","EST IMPOSSIBLE" BU 
TTON "RETOUR AU MENU'",RETURN "SUITE DU PROGRAMME" 
IF a=1 THEN GOTO menu 
IF a=2 THEN RESUME NEXT 
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a 
menus LEA 
Er 


DO PCW 8256 

DPCW 8512 

Dext. 256 K pour 8256 

O2* ect PCW 8256... 

stylo optique 

Ointerf. RS 232/centronic ..… 

housse (mon. + clavier + imp. 

ruban imprimante (par 2) 

[ disquette 3” (DF-DD) 

CO] allonge pcw (imp. + al)... ........ 


Disquettes vierges 
Oà l'unité 


Cassettes vierges C20 
Oles 5 
O les 10 


22, rue de Montreuil 94300 VINCENNES - Tél. : (1) 43.28.22.06 
OUVERT DU MARDI AU VENDREDI de 10 h 30 à 13 het de 15 h à 19h, LE SAMEDI de 10h 30 à 19h 


REVENDEUR OFFICIEL AMSTRAD FRANCE 


DIGITALISEUR ARA 

Ce digitaliseur vous permettra non seulement de 
digitaliser des images vidéo provenant d'une ca- 
méra mais aussi des images provenant direc- 
tement de votre T.V. Un logiciel très complet 
vous permettra d'embellir, retoucher, stocker... 
les images digitalisées. Entièrement français. 

O digitaliseur ARA 


MULTISERVI 

Enfin une carte E/S ne nécessitant aucun mon- 
tage, aucun relais. De plus le logiciel fourni 
avec cette carte vous permet de commander 
réveil, alarme, spot. tout appareil électrique 
de votre choix sans être un “crack” de la pro- 
grammation. Entièrement français. 

Ü Muitiservi 


produits DART 

STYLO OPTIQUE : De loin le meilleur de tous, 
le stylo optique DART à fibre optique vous 
permettra de réaliser de véritables chef d'œu- 
vres. Fourni avec logiciel d'exploitation très 
complet. 

© stylo optique 

SCANNER GRAPHIQUE : Ce scanner, très sim- 
ple d'utilisation, vous permettra de digitaliser 
toute image sur support papier, à partir de la 
DMP 2000. Fourni avec un logiciel d'exploita- 


LE 2 MARS 


OUVERTURE 
DE LA BOUTIQUE 
“PRO” 
AVEC EN VEDETTE 


LE PC 1512 


joystick compétition 
PRO5000 .... 170F 


A 


CPC 6128 


(clavier AZERTY] 


4 SUPER-PROMOTION 


DO CPC 6128 coul + impr. 
DMP 2000 


CPC 6128 monochrome 
OCPC 6128 couleur 

D CPC 464 monochrome 
CPC 464 couleur 

À imprimante DMP 2000 
Ointerface RS 232 (Amstrad) 
À souris 

À 1er lecteur de disquettes 
O 2ème lecteur de disquettes 
À mangétophone (avec câble) 
À câble magnéto 


tion très puissant. 
© scanner graphique “DART" 


Rallonge alimentation + vidéo 

À ne soyez plus collé à l'écran, rallonge 464 . 
O ne soyez plus collé à l'écran, rallonge 6128 180 F 
C] housse pour moniteur + clavier 175F 
{préciser couleur ou monoc.) 
© ruban imprimante DMPI (par 2) 

©] ruban imprimante DMP 2000 

CO] adaptateur peritel tous CPC 


Câble imprimante AMSTRAD 
Vous permet de connecter votre AMSTRAD à n'im- 
porte quelle imprimante au standard “centronic”. 


130F 


PAL SE 
16 chaine 
UHF-VHF 


haut-par 


“I ne lui manque que la parole”, synthé. VOCI la lui donne ! 
Très performant ce synthétiseur vocal va vous permettre 
de rendre votre ordinateur plus bavard qu'un politicien en 
campagne | 


sortie casque 


ble pour décodeur CANAL “+” (en option 150 


À câble imprimante 0) 
[] interface TV A res es nl EREe 
LOGICIELS CPC 
: OA Fe lly 2 ed ue 
: à |, AR PR ES 

30 grand Prix... D110FCI6OF atom smasher ...... O 80F F fighter pilot ........ D100F0150F  lorigraph .......... D195F 0195 Gba... 0130F 0175F 
airwolf O149F autoformation à l'asse. 1195 F C1295F  floopy (magazine)... C) 38F CO) 59F m'enfin ........... DIS0F O9 Gep ........... 175 F CI240F 
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Tous nos prix sont indicatifs 


CATALOGUE DISQUETTE 


Daniel LEBARBIER 


Cet utilitaire fournit les informations intégrales sur les fichiers implantés 
sur une disquette. Il complète la fonction CAT en reprenant ses 


caractéristiques. 


INFORMATIONS FOURNIES 


— Nom : nom du fichier (écriture 
standard AMSDOS). La liste des 
noms est triée alphanumérique crois- 
sant (identique à la fonction CAT) 
— Type : type du fichier 

BAS : fichier source BASIC 

BAS P : fichier source BASIC pro- 
tégé (sauvé par SAVE--,p; 

BIN fichier binaire obtenu par 
SAVE--,b,--,-- 

ASC : tous les autres fichiers. Le 
type de fichier ASCII est reconnu par 
le fait qu'il ne débute pas par un 
HEADER sur la disquette. 

— Début : adresse de chargement 
(HEXA et DECIMAL), O si type ASC 
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utile pour les fichiers de type BIN lors 
de l'instruction LOAD---,adresse. Elle 
est toujours égale à 1 70H pour les 
fichiers de type BAS. 

— START : adresse de lancement 
(HEXA et DECIMAL), O si type ASC. 
Elle est significative pour les fichiers 
de type BIN si elle a été renseignée 
lors de la sauvegarde SAVE--,b,--,--, 
adresse de lancement, elle est 
exploitée par l'instruction RUN. 

— Longueur réelle : longueur réelle 
du fichier en octets, telle qu’elle est 
enregistrée dans le HEADER. 

— Longueur occupée : taille physi- 
quement occupée sur la disquette en 
K (1024 octets) (identique à CAT). 


FONCTIONNEMENT 


Après le RUN du programme, la dis- 
quette à analyser est demandée sur 
le lecteur À. Le catalogue et les hea- 
ders sont lus avec reconnaissance 
automatique du format de disquette 
(DATA où SYSTEME). L'affichage 
du catalogue s'arrête en fin de page 
écran dans l'attente de la frappe 
d'un caractère quelconque au cla- 
Vier. Sur la dernière page affichée, 
sont fournis : le format de la dis- 
quette, la place réellement occupée 
et la place disponible. 


Remarque : les fonctions de lecture 
physique utilisées sont directement 
appelées dans la ROM AMSDOS : la 
disquette doit donc être standard 
AMSDOS. Dans le cas contraire, ou 
si la disquette n'est pas formatée, un 
message FORMAT INCONNU est 
envoyé. 


RAPPELS SUR LES FORMATS 
DE DISQUETTE 


Les CPC reconnaissent 3 formats de 
disquette : 

— le format standard CPC (ou for- 
mat système) 

— le format DATA 

— le format IBM (peu utilisé et pas 
détaillé ici) 

Sont communs aux formats S et D: 
e l'organisation physique de la dis- 
quette : 40 pistes (numérotées de O 
à 39) de 9 secteurs de 512 octets, 
soit 184320 octets disponibles 
après formatage. 

e la méthode unique d'accès aux 
fichiers : recherche dans le catalogue 
puis lecture séquentielle. 

e l'organisation de la zone catalo- 
gue et des header de fichiers que 
nous allons détailler. 


Le catalogue 


Il contient le répertoire de tous les 
fichiers implantés sur la disquette. 
Chaque fichier est géré par une zone 
de 32 octets sous la forme : 
octet O : numéro de USER ou valeur 
HES si le fichier a été supprimé. 
octets 1 à 11 : nom du fichier en 
ASCII sous la forme 8 caractères + 
3 caractères de l'extension. Le ‘‘."’ 
n'est donc pas représenté. 

octet 12 : numéro de l'extension du 
fichier. 

octet 15 : nombre d’enregistrements 
CPM (128 octets) de cette 
extension. 

octets 16 à 31 : numéros des blocs 
(1024 octets) que comporte cette 
extension (maximum 16). 

Le catalogue comporte un maximum 


de 64 zones de cette forme et fait 
donc une taille fixe de 2048 octets, 
plusieurs unités de mesure sont 
donc utilisées dans ce système : 
— l'enregistrement CPM plus 
petite zone logiquement accessible 
par le DOS : 128 octets. 

— le secteur physique : plus petite 
zone physiquement accessible par le 
DOS:512 octets = 4 enregistre- 


ments. 

— le bloc unité de mesure de taille 
de fichier, 1024 octets = 2 
secteurs. 


Un fichier de taille supérieure à 16 
blocs est implanté sous forme de 
plusieurs extensions de 16K, la der- 
nière n'étant pas complète. Pour 
reconstituer ce fichier, il est néces- 
saire de définir un ordre dans ses 
extensions. C'est le but de l’octet 12 
qui les numérotent de O à n. 

La numérotation des secteurs sur 
chaque piste est différente selon les 
2 formats. En format sS, ils portent 
les numéros H41 à H49 et en format 
D, HC1 à HC9. De plus, en format 
S, les 2 premières pistes sont réser- 
vées au système CPM (qui cepen- 
dant n'y est pas chargé dans les for- 
mats vendeurs). 

Le catalogue est implanté sur les 4 
premiers secteurs libres de la dis- 
quette : 

— secteurs H41 à H44 de la piste 2 
en format S. 

— secteurs HC1 à HC4 de la 
piste O en format D. 

Le reste de la disquette est à la dis- 
position de l'utilisateur, soit : 

— en format S 184320 octets, pis- 
tes O et 1 CPM : 9216 octets - cata- 
logue : 2048 octets = 173056 
octets = 169K 

— en format D : 184320 octets - 
catalogue : 2048 octets = 182272 
octets = 178 K 

La numérotation des blocs ne prend 
pas en compte les pistes systèmes 
en format S, mais recouvre toujours 
la zone catalogue qui représente 
donc les blocs O et 1 dans les 2 for- 
mats. Is sont numérotés croissants 
à la suite, ce qui produit des blocs 
à cheval sur 2 pistes (bloc 4 = piste 
2 secteur H49 + piste 3 secteur 
H41 en format S). 


Les headers de fichiers 


Le premier bloc de chaque fichier 
{son numéro se situe dans l'octet 16 
de l'extension O du fichier dans le 
catalogue) commence par une zone 
de 64 octets appelée header. Elle 
comporte les renseignements sui- 
vants : 


— octets O à 15 nom du fichier (16 


-octets pour la compatibilité cassette. 


En fait, on y trouve le numéro USER 
suivi de 11 caractères tels que dans 
le catalogue, les 4 derniers octets 
sont garnis par des O. 

— l'octet 18 contient le type de 
fichier : 

bit O = 1 alors fichier protégé 

bit 1,2 et 3 type du fichier 

000 : BASIC 

100 : binaire 

— octets 21 et 22 : adresse de 
chargement en format low/high. 

— octets 24 et 25 : longueur réelle 
du fichier sur 16 bits en octets dans 
le format low/high. 

— octets 26 et 27 : adresse de lan- 
cement sous la forme low/high. Les 
autres octets du header ne sont pas 
utilisés. 

Dans le cas d’un fichier de type 
ASCII, aucun header n’est écrit. Le 
fichier débute directement par le pre- 
mier caractère du premier enregistre- 
ment. Cependant, AMSDOS regé- 
nère un header pour traiter ce type 
de fichier de façon standard dans 
ses routines. 


COMMENTAIRES 
SUR LE PROGRAMME BASIC 


Le but essentiel du programme est 
de récupérer dans un tableau T$ (64) 
l'ensemble des headers des fichiers 
de la disquette. Chaque header étant 
une chaîne de caractères, il est 
ensuite aisé de les trier et de les 
exploiter pour l'affichage. Le charge- 
ment du tableau T$ est confié au 
programme en langage machine qui 
va chercher les headers sur la dis- 
quette. D'une manière plus générale, 
cette méthode peut être adoptée 
pour transmettre ou recevoir un 
grand nombre de paramètres entre 
un programme BASIC et un pro- 
gramme en langage machine. En 
effet, l'instruction CALL ne permet 
que 32 valeurs en paramètre. 
Après l'affichage du cadre de pré- 
sentation, le tableau T$ est réservé 
en ligne 70. L'appel au programme 
en langage machine se fait en ligne 
110 avec, comme paramètre, 
l'adresse de l'élément 1 du tableau. 
Ce paramètre permet au programme 
binaire de connaître l'emplacement 
en mémoire de tous les descripteurs 
des éléments T$ (i). 

Ils sont : 

— consécutifs en mémoire, adres- 
ses croissantes ; 

— composés de 3 octets ; le pre- 
mier contient la longueur de la 
chaîne de caractères, les deux sui- 


vants, l'adresse mémoire (format 
low/high) à partir de laquelle figure 
la chaîne de caractères. 

Le programme en langage machine 
peut alors forcer l’octet de longueur 
à 32 (longueur d'un header) et faire 
pointer l’adresse directement sur sa 
table de header qu'il constitue. Ainsi, 
après retour au programme BASIC, 
le tableau T$ est valorisé et exploi- 
table par des instructions standard 
BASIC. 

2 paramètres supplémentaires sont 
à retourner, le nombre d'éléments 
T$ valorisés et le format de la dis- 
quette. Ils sont restitués aux adres- 
ses 37003 et 37004 et récupérés de 
façon classique par des PEEK. La 
valeur 99 de l'octet 37003 est un 
artifice technique pour signaler au 
programme BASIC que le format de 
la disquette n’a pas été reconnu par 
le programme binaire. Un tri du 
tableau T$ est ensuite effectué 
(ligne 140 à 210) par la méthode de 
Shell-Metzner et les headers sont 
exploités pour affichage. L'octet 17, 
non utilisé par les headers, contient 
le nombre de blocs du fichier calculé 
par le programme binaire. 


COMMENTAIRES 
SUR LE PROGRAMME 
EN LANGAGE MACHINE 


Les octets CPT et FORMAT sont les 
paramètres nombre de fichiers et 
format de disquette récupérés par le 
programme BASIC à l'aide d'instruc- 
tions PEEK. Après sauvegarde des 
registres, l'adresse du descripteur de 
T$ (1), passée dans le registre DE 
par le CALL BASIC, est stockée dans 
la zone ADR. 


Reconnaissance 
du format de disquette 


Une méthode simple pour reconnaiî- 
tre le format d'une disquette est 
d'essayer de la lire dans un format 
puis dans l’autre en cas d'échec. 
Cependant, pour effectuer ces opé- 
rations de manière insensible pour 
l'utilisateur, il faut, au préalable, sup- 
primer la sortie des messages d'er- 
reurs et diminuer le nombre d'essais 
de lecture standards en AMSDOS. 
La zone CPT est utilisée temporaire- 
ment pour comptabiliser le nombre 
d'essais effectués. Un essai est 
d'abord fait en format S, puis en for- 
mat D si le premier n’a pas réussi. 
Si ce deuxième essai est.encore 
infructueux, alors la disquette est 
alors considérée illisible et la valeur 
99 est placée dans la zone FORMAT 
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avant d'effectuer un retour au 
BASIC. 

Lorsque le format est déterminé, 
alors l’ensemble du catalogue est lu 


dans la zone BUF. 


Lecture des headers 


Un premier traitement sur le catalo- 
gue est effectué pour charger les 
headers dans la table ZONE. Seules 
les extensions de fichiers portant le 
numéro O sont à considérer 
puisqu'elles représentent les débuts 
des fichiers. Pour chacune d'elles, 
un calcul du numéro de piste et de 
secteur est réalisé en tenant compte 
de la présence ou non des pistes 
système. Une division par 9 du nom- 
bre de secteurs représentant le 
numéro de bloc O, donne alors le 
numéro de piste comme quotient et 


le numéro de secteur comme reste. 
Afin d'utiliser un algorithme de divi- 
sion très simple pour un dividende 
tenant sur 8 bits, une soustraction 
éventuelle d’une valeur de 20 pistes 
est exécutée au préalable. 


Garnissage de la table ZONE 


Chaque élément de la table ZONE 
représente un élément du tableau 
T$. Le programme force donc la lon- 
gueur à 32 et l'adresse à l'adresse 
courante dans ZONE, dans le des- 
cripteur de l'élément courant de T$. 
Chaque élément de ZONE est 
d'abord rempli par les 16 premiers 
caractères du catalogue ; on a vu 
qu'ils devaient être égaux dans tous 
les cas. Par contre, dans le cas d’un 
fichier ASCII, les 16 caractères sui- 
vants ne peuvent pas venir du hea- 


der, il n'y en a pas ; ils sont remplis 
par des ©. Pour les autres fichiers, la 
deuxième partie du header ÿ est 
recopiée. La reconnaissance d'un 
fichier ASCII est faite sur la compa- 
raison du premier caractère du hea- 
der avec le premier caractère du 
catalogue. Ce procédé très simple ne 
fonctionne pas si le premier carac- 
tère du fichier ASCII est égal au 
numéro de USER du fichier (très 
rare). 

Le sous-programme LNG calcule la 
taille en K d'une extension. Cette 
taille est stockée dans l'octet 17 de 
l'élément de ZONE, non utilisé par 
ailleurs. 

Un deuxième passage sur le catalo- 
gue a pour but de calculer la taille 
totale des fichiers dans l'octet 17, en 
y ajoutant celle des extensions por- 
tant un numéro différent de O. 
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40 CLEAR:MEMORY 236999: MODE 2:LOCATE 28,1 
:FRINT "CATALOGUE DISQUETTE" 

90 FRINT:FRINTEWINDOW #1,3,78,6,235 

60 LOCATE 6,4:FRINT'NOM'":LOCATE 18,4:FRI 
NTUTYEE": LOCATE 28,4:FRINT "DEBUT" 

70 LOCATE 42,4: PRINT"S TART':LOCATE 55,4: 
FRINT'LONGUEUR REELLE  OCCUFÉE" 

80 FLOT 10,10: DRAW 10,565: DRAW 630,365: 0D 
RAW 630,10: DRAW 10,10 

90 FLOT 10,525: DRAW 630,225 

100 DIM t#(64) 

110 GOSUR 490 

120 LOCATE 20,24: FRINT'INTRODUIRE LA DIS 
QUETTE A TRAITER'"':CALL RERO: CALL &HRO6 
1250 LOCATE 10,Z24:FRINT SFACE#(60) 

140 CALL 357000,@t#(1) 

1950 nteFEER (700%) 

160 IF nt=99 THEN LOCATE 24,24: FRINT'FOR 
MAT DE DISQUETTE INCONNU": CALL &BHO6: END 
170 p=nt 

180 pæINT(p/2) 

190 IF pii THEN GOTO 260 

200 deb=ii:sfinent-p 

O rædel 

Cer+pi iæet#(c) THEN GOTO 240 
20 tH(O)etE(r)istE(r)et#£ (cité (c)=t#(O): 
rer-pisIF r:0 THEN GOTO 220 

240 deb=deb+1:iF deb:fin THEN GOTO 180 E 
LSE GOTO 210 

290 t=O 

260 FOR izi TO nt 

270 1=1+1:1F 1219 THEN 1=1:CALL 
LL SEHBO6:CLSH1 

280 LOCATE #1,1,1:FRINT #1,MID#(t#(i),2, 
G)3"."sMID#(t#(i),10,7) 

290 af=MIDE(t#(i),19,1):LOCATE #1,16,1 
200 IF atfzCHR#(O) THEN FRINT#1, "BAS": GOT 
() 350 


IF tE(Cr): 


UBBOG: CA 
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510 IF af=CHR#(1) 
OTO 2550 

É20 IF af=CHRé(2) 
0 :50 

IQ IF af=CHR#(S) 

OTO 550 

+40 FRINT#1,"ASC" 
2930 d= =ASC (MIDE CEE (1) ,22, 1) )+256ASC (MIDS 
Ct#(i),23,1)) 

360 LOCATE #1,25,1:FRINTHI,"R':HEXE(d,4) 
sd 

370 s=ASC(MIDE(tH(i),27,1))+256*ASC(MIDE 
(t#(i),28,1)) 

380 LOCATE #1,39,1:FRINTHI,'"%":MEX#(S,4) 
55 

3 970 IrsAGCC(MIDE(tE(i),25,1))+256*ASC (MID 

F(t#(i1),26,1)) 

400 LOCATE #1,56,1:PRINT#1,"&'3MEXS (lr,4 
)slr 

410 Ig=ASC(MIDE(tH(i),17,1)) 

420 LOCATE #1,70,1:FRINT#1,USING'"'###":10g 
:LOCATE #1,74,1:FRINT#1,"K" | 


THEN FRINT#1,"HAS F':6G 
THEN PRINT#1,'"HRIN": GOT 


THEN FRINT#1,"BRIN F'":G 


430 t=t+1q 

440 NEXT 

450 IF FEEK(37004)=0 THEN m=178 ELSE m=i 
69 

460 LOCATE 10,24:IF m=178 THEN FRINT “FO 
RMAT DATA" ELSE FRINT "FORMAT SYSTEME" 
470 LOCATE 30,24:FRINT "FLACE OCCUFEE :" 
I TUE RESTE LIBRE :";3m-t;"K":CALL & 
ROZ: CALL &BB06 


440 END 

490 crtl=0inleS10:RESTORE 550:iz5:7000 
900 nl=enl+10:FOÜR 1x1 TO 16 lecture de 
La ligne nl 

10 READ ViFORE i,vicrtlæz(crtli+v) 
Q9S:iri+l 
H20 NEXT 
nl:END 
IQ IF 1237463 THEN GOTOQO 500 
540 RETURN 


MOD 99 


J:READ V:IF viïcrtl THEN FRINT 


“SO DATA 195,147,144,0,0,0,0,229,245,197 


PEN 


213,22 LOT ,220 2323230 


1,229,293,229,23,2 

560 DATA 8$,146,115,25,114,14,7,205,15,1 
85,62,255,205,114,202,62,4151 

970 DATA 2,90,102,190,%3,159,144,54,0,33 
,87,194,30,0,22,8,9193 

#80 DATA 14,65,62,18,50,140,144,121,50,1 
41,144,0,205,102,198,254,6901 

290 DATA 0,202,246,144,58,1:9,144,254 
218,220,144,462,99,50,129,9022 

600 DATA 144,195,48,146,0,14,195,6®,0,50 
,140,144,121,950,141,144,615 

610 DATA 22,0,35,179,144,52,55,87,154,70 
,0,195,195,144,0,55,1876 


rs 
+9 


620 DATA 139,144,54,0,25,87,162,54,229,3 
5,54,229,33,87,156,12,2384 


630 DATA 205,102,198,25,87,158,1 
2,198,33,87,160,12,205,102,528% 
640 DATA 198,221,23,87,154,753,3%,87,146 
,0,221,126,0,254,229,202,7527 

6450 DATA 196,145,221,126,12,254,0,194,19 
6,145,23,89,164,54,0,221,9577 

660 DATA 126,16,254,90,218,67,145,54,70, 
214,90,7,23,140,144,1%4,1330 

670, DATA 111,62,9,6,8,14,0,97,92,87,41,1 
24,186,718,90,145,2620 

680 DATA 237,82,6%,203,17,16,243%,58,89,1 
64,129,87,124,33%,141,144,4450 
690 DATA 134,79,50,0,33,89,167, 


205,10 


CPrS 


RE 
de tent 


205,102,1 


WADE a 
(Zcompilateu 
0e w7 To 2 TZ 
est le système idéal pour 7 Z 
développer des programmes 


sur votre CPC 


Typhon 


GE 
compile presque la totalité du 77 LA 
Locomotive-BASIC p7 ee 
= 
n'a besoin que de 5 secondes tout 
au plus pour réaliser le processus 


de compilation 


VE 


dispose d'environ 60 nouvelles 
instructions supplémentaires 


\ À 
Ti 


\ 


\. 1 \ 


NAS 


Typhon — travaille de manière 
interactive 


" 


A 


A 


AK 
\ 


\ 


produit de la 
vraie langue 
machine 


\ 


— ___ Typhon — 


— 


NA 
fil 
\ 


rend possible 
une combinaison 
BASIC/compilateur - 


r BASIC 


WE 
GET 


LAPS 
Le 


98,0,253,229,209,42,85,6300 


700 DATA 146,67,32,119,35,115,35,114,35, 
34,85,146,1,16,0,221,7496 

710 DATA 229,225,257,176,221,126,0,33,89 
,162,190,194,161,145,1,16,9701 

720 DATA 0,53,105,162,237,176,195,173,14 
5,0,6,16,175,18,19,16,1178 

730 DATA 252,253,54,18,255,0,221,229 
,17,16,0,25,205,66,146,3160 

740 DATA 119,16,33,139,144,52,17,22, 


Le Là 
 METX ÿ ” + CC en) 
OO, 293017522109 4292 


ME, 
CET 


LES 
Ed y 


750 DATA 221,258,221,126,1,254,229,202,2 


1 


°3,149,195,35,145,0,0,221,652Y 


760 DATA 235,88,154,253,:5,88,146,0,221,1 


26,255,254,229,202,34,146,8785 


770 DATA 221,126,11,254,0,202,34,146,257 
,229,225,221,229,209,26,190,1%6? 


nl -A 


780 DATA 194,25,146,6,10,19,35,26,190,19 
4,25,146,16,247,17,15,2673 

790 DATA 0,221,229,225,25,205,66,146, 
,134,15,253,119,15,195,34,4808 

800 DATA 146,0,17,32,0,293,25,195,240,14 


5,0,17,32,0,221,25,6156 


mer 
di ed ut 


810 DATA 221,126,0,254,229,194,223,145,0 
,62,0,205,114,202,205,24,8%60 

820 DATA 185,253,225,221,225,209,19%,741 
,225,201,0,6,16,175,190,202,1128 


830 DATA 80,146,25,16,248,62,16,201,0,62 


,16,144,201,0,0,0,2355 


= &N 
= NN 
Re 
S< 


rend votre programme 


+. L” " jusqu'à cent fois plus 
= > RS rapide 
NN RS 
TT — SQ Typhon — est le compilateur 
— = NY BASIC le plus vendu 
nt SÈNN en Allemagne 
 . K ° 
LE L 
si > Typhon — parle français 
0 ù (documentation en 
LI langue française) 
es 
Re Typhon — a été développé par 
 _- | ial e 
NN mperial SOFTwar: 
SN Systems 
= EN 
=. 
+ Typhon — ne coûte que 
. SSS 290 ff (cassette) 
S 340 ff (disquette) 
TT a' 
7: Îoperial SÜFGuare Systems 
> Gardes france 
=; . 54 Avenue de la ER  —— 
Æ <, ., F-57520 Rouhling ee 
ra, 8 709 2597 2 = 83 — 


INITIATION A CP/M 


Francis VERSCHEURE 


Le mois dernier, nous avons vu une partie des possibilités offertes par l'en- 
semble de développement que constitue un macro-assembleur associé à un 


éditeur de liens. 


Avant de passer à l'étude illustrée d'exemples des fonctions internes du 
BDOS de CP/M, nous allons faire un petit entracte pour donner réponse à des 


questions qui nous ont été souvent posées par les lecteurs. 


COMMENT UN PROGRAMME 
CP/M DETERMINE-T-IL 
LA TAILLE MEMOIRE 

DISPONIBLE ? 


Ainsi que nous le verrons dans la des- 
cription des commandes de CP/M, cer- 
taines adresses fixes contiennent des 
paramètres du système. La taille mé- 
moire disponible n'est pas l'un de ces 
paramètres, mais peut être déduite très 
simplement du fait suivant : 

L'adresse 5 contient une instruction 
JMP BDOS, c'est-à-dire un branche- 
ment au point d'entrée de CP/M. Ainsi, 
toute fonction CP/M est exécutée par 
un CALL 5. Cette écriture est indépen- 
dante de la taille mémoire puisque, jus- 
tement à l'adresse 5, CP/M, lors de son 
initialisation, y inscrit un JMP à l'adres- 
se où est implanté le BDOS. 

Le BDOS étant implanté dans le haut 
de la mémoire et le programme utilisa- 


Listing 1 
BDOS 


EQU 5 ; 
LHLD  BDOS +1 ; 
DCX H ; 
SHLD  MAXMEM ; 


teur dans le bas, toujours à l'adresse 
100H, le programme utilisateur détermi- 
ne très simplement la taille mémoire en 
allant voir le contenu des adresses 6 et 
7 qui, dans le JMP BDOS, sont l'adres- 
se du BDOS. Cette valeur moins 1 est 
la plus haute adresse utilisable par le 
programme. Le listing 1 montre un 
exemple valable en CP/M 2.2 ou CP/M 
Plus. 


A-T-ON ACCES AUX ROM 
DEPUIS CP/M Plus ou CP/M 2.2 
EN ASSEMBLEUR ? 


N'oublions pas que lors de la mise sous 


tension de notre machine, nous som- 
mes sous contrôle des ROM du BASIC. 
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Que deviennent effectivement ces 
ROM après le démarrage de CP/M ? 

Et bien, pour un programme utilisateur, 
les ROM disparaissent de l'espace 
adresse du Z80l. Un programme normal 
ne voit que ce qui se trouve des adres- 
ses 0 à 64 K et ne peut écrire que de 
100H à la taille maxi déterminée, com- 
me indiqué dans le paragraphe précé- 
dent, avec quelques possibilités pour 
certaines zones de 0 à 190 H. 

Un programme CP/M dispose des fonc- 
tions de CP/M et c'est tout. 

Bien sûr, il est possible d'accéder aux 
ROM et c'est d'ailleurs ce que fait le 
BIOS deCP/M. Mais, c'est totalement 
déconseillé à un programme utilisateur 
Pourquoi ? 

D'abord, parce que cet accès n'est 
possible que si le programme se trouve 
à une adresse qui peut être visible du 
Z80 en même temps que l'espace adres- 
se ce la ROM, après que la commuta- 


Point d'entrée de CP/M = JMP BDOS 

Charge dans HL l'adresse du BDOS 
HL=HL-1 

Sauve adresse mémoire maxi dans MAXMEM 


tion d'activation de la ROM remplace 
une zone de RAM normalement visible. 
Si le programme se trouve justement 
dans cette zone de RAM qui disparaît, 
le retour au programme sera impossi- 
ble, sauf s'il est prévu dans le code de 
la ROM. 

Ensuite, parce que les sous-program- 


Listing 2 
1 — BASIC: 
2 — Assembleur Z80 


LD À,08AH 


mes en ROM que vous voulez appeler 
utilisent éventuellement des adresses 
de RAM qui, après la commutation, ne 
seront pas visibles de la ROM ou tout 
simplement qui ne contiendront pas les 
paramètres voulus. Si le système n'est 
pas en BASIC, les variables internes 
du BASIC ont pu être détruites, puis- 
que la RAM où elles avaient été ins- 
crites est peut être utilisée par CP/M ou 
un programme utilisateur. 

C'est donc à chaque fois un cas d'espè- 
ce et il faut pour cela maîtriser partaite- 
ment les mécanismes de commutation 
des bancs de mémoies RAM (CP/M 
Plus) et des ROM. Malheureusement, 
ces informations ne sont pas données 
par AMSTRAD dans la documentation 
standard. Le lecteur intéressé par une 
telle utilisation doit d'abord se procurer 
ces informations ou relire, par exemple 
dans CPC, les articles "Au cœur du 
6128" qui lui donneront quelques 
lumières. 

Mais, de toute façon, c'est totalement 
à proscrire dans le cadre de CP/M, dont 
l'avantage essentiel est justement d'of- 
frir une standardisation de fonctions 
disponibles, quelque soit l'environe- 
ment matériel, de façon à pouvoir écrire 
des programmes qui soient portables 
d'une machine X à une machine Y. 

Si votre but éventuel est en fait d'utili- 
ser les outils de développement de CP/ 
M pour écrire des programmes pour 
AMSDOS, il suffit d'écrire un petit utili- 
taire qui transforme un fichier .COM en 
fichier binaire AMSDOS, en créant le 
"Header" AMSDOS nécessaire. 


OUT &FBEB, &8A 


LD BC,OFBEBH 


OUT 
3 — Assembleur 8080 
MVI 


(C),A 


A,08AH 
LXI B,0FBEBH 
DB 0EDH,079H ; 


Valeur à envoyer vers le PORT 
Adresse du PORT sur 16 bits 
Codes binaires de OUT (C),A 


TABLEAU 1 : Liste des fonctions du BDOS 
| Numéro | Action CP/M Plus Action CP/M 22 si différente 


Re-initialisation du système ou démarrage à "chaud" 
Lecture d'un caractère au clavier 


œ un à SONO 


Ecriture d'un caractère à l'écran 
Lecture d'un caractère du Lecture d'un caractère du 
Port Auxiliaire (AUXIN). READER (RDR). 
Ecriture d'un caractère dans Ecriture d'un caractère dans le 


Port Auxiliaire (AUXIN). PUNCHER (PUN). 

Ecriture d'un caractère à l'imprimante. 

Lecture ou écriture directe à la CONSOLE. (Clavier/écran). 
Lecture du statut du PORT Lecture de l'UO byte. 
Auxiliaire en entrée. 
Lecture du statut du PORT 
Auxiliaire en sortie. 

Ecriture à l'écran d'une chaîne de caractères. 

Lecture au clavier d'une chaïne de caractères. 

Lecture du statut du clavier. 

Lecture du numéro de version de CPM. 

Re-initialisation du système disque. 

Sélectionne une unité de disque. 

Ouverture d'un fichier existant. 

Fermeture d'un fichier ouvert. 

Trouve premier poste du fichier dans catalogue. 

Cherche le suivant. 

Effacement d'un fichier du catalogue. 

Lecture séquentielle d'un fichier. 

Ecriture séquentielle dans un fichier. 

Création d'un nouveau fichier. 

Changement du nom d'un fichier. 

Lecture du vecteur d'état des disques. 

Lecture du numéto du disque courant. 

Fixe l'adresse de transfert disque. 

Lecture de l'adresse du vecteur d'allocation disque. 

Protège en écriture le disque œurant. 

Lecture du vecteur des disques protégés en écriture. 

Positionnement des attributs d'un fichier. 

Lecture de l'adresse du Disk Parameter Bloc. 

Lecture/Æcriture du numéro de USER courant. 

Lecture à accès RANDOM (dt z-cès direct). 

Ecriture en accès RANDOM. 

Lecture de la taille d'un fichier. 

Détermine le numéro d'enregistrement. 

Initialise vecteur activité des disques. 

Ecriture en RANDOM avec remplissage de 0 binaires. 
Verrouillage d'un enregistrement Les fonctions supérieures à 

40 sont inconnues en 2.2. 
Déverrouillage d'un enregistrement. 
Positionnement du compteur muli-secteurs. 
Positionne mode d'erreur du BDOS. 
Lecture espace libre sur le disque. 
Enchaïnement de programme. 
Ecriture forcée des Buffers. (Flush Buffers). 
Lecture/Æcriture du System Control Bloc. 
Appeldirect du BIOS. 
Chargement d'un overlay. 
Appel d'un RSX CP/M. 
Récupération des blocs libres sur disque. 
Troncature d'un fichier. 
Ecriture d'un Label de disque. 
Lecture du Label de disque. 
Lecture des paramètres d'un fichier. 
Ecriture d'un XFCB. 
Fixe la date et l'heure du system. 
Lecture de la date et de l'heure. 
Fixe le mot de passe par défaut. 
Lecture du numéro de série de CP/M. 
Lecture/Ecritrue d'un code retour de fin de programme. 
Lecture/Ecriture du mode CONSOLE. 
Lecture/Æcriture du délimiteur de chaîne. 
Affichage d'un bloc mémoire. 
Impression d'un bloc mémoire. 
Construction d'un FCB à partir d'une chaîne de caratères. 


Ecriture de l'LO byte. 


COMMENT OBTENIR SOUS 
CP/M L'EQUIVALENT DES OUT 
DU BASIC ? 


Tout dépend dans quel langage vous 
programmez. Si c'est en BASIC Micro- 
soft, les OUT existent également et 
une fonction similaire est souvent pré- 
sente dans les autres langages, Pas- 
cal Cou autre. 

Vous avez aussi, bien sûr, la possibili- 
té de les écrire en assembleur. Pour 
cela, il faut utiliser les instructions Z80 
qui permettent d'adresser les périphéri- 
ques en envoyant sur le BUS une adres- 
se sur 16 bits. Ces instructions Z80 ne 
sont donc pas disponibles dans les as- 
sembleurs CP/M. Mais, il est facile de 
les remplacer par une macro ou de les 
coder directement en binaire (voir lis- 
ting 2). 

Même chose, bien sûr, pour les INP du 
BASIC à remplacer par des IN A, (C) en 
Z80, codes binaires OEDH,078H, précé- 
dés du chargement de l'adresse du 
PORT dans BC. La valeur lue est ren- 
voyée dans l'accumulateur A. 


ETUDE DES FONCTIONS 
INTERNES DU BDOS DE CP/M 


Utiliser un assembleur n'a maintenant 
plus de secret pour vous et vous dési- 
rez écrire des programmes sous CP/M. 
Vous disposez pour cela des différents 
codes opérations possibles du micro- 
processeur. Dans toute notre étude, 
nous utiliserons les mnémoniques 8080 
utilisables avec les assembleurs de 
CP/M. 

Tout cela est bien beau, mais comment 
faire pour réaliser en assembleur l'équi- 
valent d'un PRINT "Bonjour" ou d'un 
INKEY$ ou créer un fichier ? 

C'est justement là où interviennent les 
fonctions internes du BDOS de CP/M. 
Le BDOS est justement là pour simpli- 
fier la tâche du programmeur assem- 
bleur en lui donnant la possibilité d'ef- 
fectuer les opérations élémentaires 
dont il a besoin sous forme d'appels 
standardisés au BDOS. 

Vous en avez eu d'ailleurs quelques 
exemples dans nos petits programmes 
illustrant l'utilisation des assembleurs 
CP/M. 

Nous allons maintenant voir toutes ces 
fonctions, une à une, en donnant les 
versions CP/M Plus et CP/M 22 lors- 
qu'elles diffèrent. 

Le tableau 1 vous donne une liste com- 
plète de ces fonctions du BDOS. 

Comme vous le voyez, la route sera 
longue et nous commencerons le mois 
prochain. 
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TOUT POUR L’AMSTRAD 


MICRO ORDINATEURS - LOGICIELS - PROGICIELS 


AMSTRADESK 


Bureau pour ordinateur personnel 


Structure rigide en tube acier de 
section rectangulaire. 


e Large espace disponible pour les 
câbles de liaison. 


Espaces de rangement pour cas- 
settes, disquettes et papier. 


Equipé de 4 roulettes permettant 
un déplacement aisé. 


pour 464, 6128, 8256, MSX 


990TT.C. en Importation Exclusive 


—- 


Belle finition d'ensemble. Struc- 
ture acier peinte couleur brun. 
Panneaux de particules plaqués 
teck. 


Livré en Kit (grande facilité de 
montage). 


Dimensions : 

Hauteur : 889 mm. 
Longueur : 933 mm. 
Profondeur : 610 mm. 


PI 8256 et 8512 poste informatique 


Structure rigide en tube acier de section rectangulaire. 

Large espace disponible pour les câbles de liaison. 

Espace concu pour l'imprimante. 

Equipé de 4 roulettes permettant un déplacement aisé. 

Belle finition d'ensemble. Structure acier peinte couleur gris. 


Dessus bois stratifié gris. 

Livré en Kit (grande facilité de montage). 
Dimensions : 

Hauteur : 680 mm 


Prolondeur : 700 mm 990 FTTC 


REVENDEURS, nous consulter 


e Friction et traction. + Guide feuille. e Introduction auto- 
matique du papier. e Qualité courrier. 


EXTENSION MEMOIRE 256 Ko - KIT POUR 8256 - 
Franco de port : 390 F TTC 
DISQUETTES 3” - Franco de port : 350 F par 10 


NOM Lg si detail, da LU AG Men dr ae de 2 Prénoms SUN UE AT NA nl Sn a ant sean ets 
ATeSSE nd ee D Annee Pate AM MA A AR RU A AN TU A dt A de MU ESee MR tn na ea ns de A A ue 4 An ve 
TERRE EN Re Code: postal nt sed ee ad ar nl tn mt AE 


e AMSTRADESK ,, au prix de 990 F TTC l'unité, nombre...................................................................... 
e" Pl:8206:: ;‘auiprixde:990:F"TTE l'unité nombre 2 ee Lee ne den Mer te nor na RM ao ae Fa se 2 
S 'SPAO00: À. |.-auiprix: de 2990; F:TTC> nombre. 224 t a tn nn Sn An Le EP AS pee ee BR ne D EE 2-8 | 
au prix de 390:F'TTE l'unité: nombre: nr ee LR a in re she 

e Disquette 3”, au prix de 350 F TTC la boîte de 10, nombre de boîte(s)......................................................... 


e Extension mémoire 256Ko pour 8256 


Ci-joint, mon règlement par chèque. 


francs. 


NEO MEDIA 


VINGT FORMATEURS EN 


Robert C. KUHMANN 


L'auteur de de logiciel est fort connu 
des amateurs de CP/M car il anime une 
association très connue Le Club 
Piconet France. Nous avons, à plu- 
sieurs reprises, présenté les activités 
de cette association aux nombreux ser- 
vices. 


Le programme de formatage qui vous 
est proposé ici est capable d'utiliser du 
8", 3" 1/2, 5" 1/4 (40 ou 80 pistes) et de 
reproduire les formats VENDEUR, DA- 
TA, IBM et PCW en lecteur A ou B, se- 
lon la configuration matérielle utilisée. Il 
allie rapidité et confort d'utilisation. 

Ecrit en assembleur 8080, ce program- 
me doit, précisons-le, être utilisé sous 
CP/M22. 

Un dernier point : pour tous ceux qui 
voudraient se procurer ce logiciel direc- 
tement sur disquette, celle-ci sera dis- 
ponible auprès de Piconet (voir publici- 
té dans la revue). 


PYRENEES 


DISTRIBUTEUR ET CENTRE TECHNIQUE 
AGREE AMSTRAD 


Logiciel professionnel 
OÙ sur mesure pour 
compatible IBM PC. 


DE L'ORDINATEUR INDIVIDUEL 
AU COMPATIBLE IBM PC 1512 


41, rue du IV septembre 


TARBES Tél. 62.93.70.71 


s9en 
CLEL 
9405 
sec 
9918 
8997 
188 
LT] 
LL 


9899 
s8el 
#02 


CRT 


#14 


9198 118483 
8183 #E09 
8145 CD4564 
8198 #E91 
#19A CD9589 
8180 11D185 
#114 6E99 
#112 CDS598 
#115 115894 
#118 8E99 
811A C04598 
g11D 8Eg1 
S11F CD4589 
8122 FEël 
9124 CA4DSI 
8127 FE4I 
8129 CA4DŸ! 


Tit 


But: 


Par 


"VINGT Formatteurs en 


re: FORNAT.ASH - Version francaise vi.88 - le 41 Decesbre 1986 


“VINGT Foraatteurs en UN 


Foraatteur pour un Anstrad CPC464, 664, ou 6128 sous CP/N v2.2 
et un lecteur 3°, 5°1/2, ou 5"1/4 (48 pistes ou 88 pistes), drive 
À ou B. (code ecrit en 8488 pour ASM.CON & LOAD.CON) 


: Robert C. Kuhnann, le “Coaputer CowBoy”" ta 
Copyright "CPC" et l’auteur, 
{c} Decenbre 1986, tous doits reserves. 


Lecteur Drive Forsats 


{SFDD, 8 ou 9 Sec/Piste, 312 octets/sec} 


3" A 7/8 Systen (Vendor), Data, IBM, PCN (48 pistes) 
3“1/2 A 7/B Systes (Vendor), Data (48 pistes) 
3"1/2 À /B8 Systes (Vendor), Data (88 pistes) 
S"1/4 A / B Systes (Vendor), Data, IBM (48 pistes) 
3"1/4 A 7/B Svstes (Vendor), Data (B# pistes) 


Cospatible avec TOUS ces lecteurs pour Asstrad: 

3“ - Asstrad DDI, Aestrad FD-2, CPC664, CPC6128 

3"1/2 - [,C.V,, P.E.S. 

5°1/4 - TRAN AMSD Jassin, P.E.S., M.V.I. (588K) 

9"1/4 - TRAN AMSD+ Jasain, Vortex F1-1, Vortex M1-K, P,E,S, (Mega) 


EQU #0H retour chariot 

EQU #AH line feed 

EQU ‘] call bdos 

EQU gcH efface ecran 

EQU 18H video inverse sarche/arret 
EQU 7 been 

EQU 8 sbackspace 

EQU 84H touche “copy” 

EOU 8FCH itouche "esc” 

EQU 9 affichage textes 


sconsole input 
sconsole output 


OR6 #188H 
L à 
BEGIN: LXI D.SIG6NON inecsage ‘sinon’ 
MUL  C,PRINT 
CALL  BD0S 
NVI C.CONIN 
CALL 800$ 
SELECT: LXI D,SELHS6 snessage ’para” 
AVI C,PRINT 
CALL  BD0S 
SELERR: LXI D. DRVNS6 ssessage ‘drive’ 
MVL C,PRINT 
CALL  BD0S 
NVI C,CONIN sreponse? 
CALL  BDOS 
CPI ui 
J1 DRVA sdrive a? 
CPI ‘a’ 
J1 DRVA drive a? 


[(NIN EL 
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#12 FE82 
812€ CA4581 
#131 FE42 
8133 CA4SS! 
8136 FEFC 
9138 CADC#2 
8138 1E87 
8130 9E82 
815F COR588 
8142 C31581 
8145 81 
9147 32A889 
84h C35281 
9140 3E89 
814F 324889 
8152 Cé41 
8154 326686 
8157 118094 
815A #EU9 
#1sC CDU588 
S1SF #€81 
#18t CD9588 
8164 FE34 
8168 CA7D81 
8169 FE38 
#16B CAB781 
816€ FEFC 
#173 CADC#2 
173 1E97 
9175 9E9?2 
8177 CD4588 
S17A C35781 
9170 3€27 
#17F 324689 
8182 3E94 
g184 C39181 
8187 3E4F 
8189 324689 
818C 3E98 
818€ C25781 
#191 Cé38 
8193 524E96 
#196 11CA84 
8199 8E89 
198 CD9508 
A19E 1IC3ES 
BiAl 8€99 
8143 CD9588 
8iAb DEAl 
#18 CDA588 
SIAB FESI 
S1AD CAFF8I 
8188 FES? 
#182 CAFAÿI 
8185 FES5 
8187 CAE981 
SIBA FE34 
81BC CADEB! 
S1BF FE35 
81C1 CAD381 
SiC4 FEFC 
81C6 CADC82 
8109 1E47 
#1CB 6E92 
81CD CD4588 
#18 C39E81 
8103 5E89 : 
8105 52589 
#1D8 214999 
8108 C38702 
S10E 3E98 
S1ES 24599 
S1E3 210199 
S1ES C34702 
81E9 3E89 
SIEB 324599 
SEE 21214A 
S1F1 C38792 
S1F4 3E99 
#1Fé 324599 
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DRVB: 


DRVA: 


LETR: 


TRÉERR: 


TRE4: 


TRKG: 


FORN: 


DOLIST: 


ERLIST: 


PCN: 


EBN: 


DATA: 


VEND: 


_ 
DRVE 

ge 

DRVB 

ESC 
BYEBYE 
E,BELL 
C, CONDUT 
BD0S 
SELERR 
Al 
DRVNUN 
LETR 

EX] 
DRUNUM 
aix 
LETTER 


C,CONOUT 
8D0S 
TRKERR 
4,39 
NUATRK 
A4 
FORX 
4,79 
NUNTRK 
4.8 
TRKERR 
38H 
FOURS 
D.LIST 
C.PRINT 
BDDS 
D,LISTI5 
C,PRINT 
BDOS 
C.CONIN 
BDOS 
ot 
SYST 


€, BELL 
C,CONOUT 
BDOS 
ERLIST 
a,9 

SPT 
H,FSPCN 
HOVE 

A,8 

SPT 
H,FSIBN 
MOVE 

4,9 

SPT 
H,FSDATA 
NOVE 

4,9 

SPT 


sdrive b? 


idrive b? 


sbeep 


boucler 
sutilisons b 


iutilisons à 
sascii 


ssessage ’ 48/88? 


reponse? 


49 pistes? 


184 pistes? 


sbeep 


boucler 
8-39 

148 pistes 
14-79 

189 pistes 
sascit 4/8 


+ ResSage 


jsessage 


isvstese? 
à vendeur ? 
data? 
s1be? 


1pcu? 


sbeep 


19 spt 


58 spt 


39 spt 


139 spt 


81F9 21F989 
S1FC C39782 
S1FF 3E99 
8281 324509 
8284 21F999 
8297 114C4A 
9284 812988 
#280 E0BS 
824F 11E795 
8212 #Eu9 
9214 CD8598 
8217 116986 
e21A 8E89 
#21C CD4d568 
#21F 8Egl 
8221 CD4504 
#224 FEFC 
8226 CADC82 
8229 FEES 
822B CA3882 
822€ 1E87 
9238 6E92 
9232 CD4588 
9235 C31782 
2238 114786 
823B #EQ9 
2230 CD9568 
8249 3E98 
6242 324799 
8:45 3AA769 
9248 57 

249 SAABA9 
8240 SF 
8240 3€ 
824€ 68 
824F 4F 

259 SAA599 
4233 47 
9254 214C8A 
8257 DF 
9258 49 

SA 5AÀ689 
8250 FE27 
825F CABA#2 
8262 3AA7E9 
8265 FE27 
8267 CCF382 
#26A 3AA799 
2250 214699 
8279 BE 
4271 CA9B#2 
9274 €5 

213 DS 
9276 C5 
9277 F3 
9278 1E98 
827A 6E42 
#27C CDu598 
827F F1 
9289 C1 
8281 D 
9282 El 
4283 IC 
8284 324799 
#287 214C8A 
#28A 3AA599 
#28D 47 
828E 3AA799 
8:91 77 

292 23 
9293 23 
8294 23 
8295 23 
9296 18 
8297 F9 
#298 C34582 
298 CDES62 
929€ 214C9A 
S2A1 3kASA9 
244 47 


SYST: 


NOVE: 


STRTI: 


RESTRT: 


STRT2: 


START: 


AGAIN: 


SECTN: 


SKIP: 


LO0P: 


ANOTHR: 


CALL 
LI 
LOA 
HOY 


H,FSSYST 
NOVE 

a,9 

SPT 
H,FSSYST 
D, TABLE 
B,48 
DEDH.8KAH 
D.FORHSG 
CPRINT 
800$ 

D, COPESC 
C,PRINT 
8005 
C.CONIN 
8005 

ESC 
BYEBVE 
copy 
STRT2 

E, BELL 
C.CONOUT 
8DOS 
RESTRT 
D, TRKNSG 
C,PRINT 
800$ 


KA 

H, TABLE 
3 
FORMAT 
NUNTRK 
39 
SKIP 
NXTTRK 
39 
PR4#79 
NXTTRK 
H.NUATRK 
\ 
ANOTHR 
H 

(] 

B 

PSN 
E,98H 
C.CONOUT 
BDOS 
PSN 

B 

D 

H 

A 
NXTTRK 
i, TABLE 
SPT 

BA 
NXTTRK 
HA 

H 

Li 

H 

H 


39 spt 


sldir (28) 


itouche esc 


stouche copy 


savi ann 
; secteur 


srst 18 (2881 


18H sdinz adresse (288) 
8F 9H 5-6 displ. 


AGAIN 
HOME 
H.TABLE 
SPT 

BA 


7 
Win Wesr 
(EUROPE) SARL 


LOGICIELS 


POUR 


LECTEUR D" 1/4 


CPC464 - CPC664 - CPC6128 


MULTI-5” 1/4": 3007 


Accéder à toute la bibliothèque CP/M éditée sur 5'’ 1/4! 
Lire: KayPro II, TRS80-3, TRS80-4, Zenith 100, IBM-PC CP/M86, Hector HRX, 
Lynx 128, AMPRO, NCR, T.I., SharpMZ800, NewBrain, etc. ! 


® © h 29 / utilitaire de formatage ®) f TTC 
RU AA 

(LES FORMATTEURS) I 

Formatter: une disquette vierge - lisible par les marques ci-dessus... 


LE compatible 
LA tm Lecteur 5’ 1/4 f TIC 
O} ss JASMIN AM5D + - 1 M 
._—— _ AMSDOS et CP/M 22 _ 


Stocker 800K octets & Doubler la capacité du DiRectory! 
Lecteur 80pistes, DFDD, 96tpi... 


°1-SYSTEME" «1601 


Un puissant système d'exploitation acclamé par BUTE!! 100 Utilitaires! 
Un SED Z80 avancé, performant, remplacant CP/M v2.2, mais compatible à 
100% ! “ZCPR3"THE MANUAL -livre de 350pgs... 250f ttc 


Oo LE T AMSTRAD - CPC 464 - CPC 664 - CPC 6128 et AMSDOS sont des marques déposées d'AMSTRAD.  CP/M est une marque déposée de Digital Research 
JASMIN AM-5D est une marque déposée de T.RA.N. sarl 


BON DE COMMANDE « \WILD WEST », 84760 St-Martin de la Brasque. Tél. : 90.77.61.36 


Désignation des articles demandés 


Je règle par 


D Chèque Bancaire D CCP. A AU 
RE NE RÉ TA EI A 7 F. 

DEMANDE DE DOCUMENTATION Suississsess says 

Je possède un micro de type . NT EL F. 

Frais de port............ ............gratuit 


Je joins 3 timbres à 2,20 F frais d'envoi. | TOTAL TTC............................. F. 


&2AS 3E89 
8247 77 
8248 23 
8249 23 
f2n4 23 
9248 23 
82Ac 14 
9240 F9 
A2AE 110798 
8281 #E99 
8283 C09564 
9286 116589 
#289 #99 
8288 CDA588 
82BE 4E91 
82C8 CD9588 
9203 FEES 
8205 CA3882 
82C8 FEAD 
2CA CAQD81 
82CD FEFC 
82CF CADCY? 
8202 1E87 
9204 6Ea2 
9206 CDA588 
4209 C3B492 
9200 119899 
e2DF #E49 
92€! CDA588 
S2E4 C9 


LO0P2: 


CHOICE: 


CHOIC2: 


BYEBVE: 


92E5 344899 
82E8 SF 
A2€9 3E88 
82EB 57 
42EC DF 
82ED F4? 
82EF C9 


HOME: 


, 

92F8 6b3C7 SKTRF: 
92F2 87 
#2F3 ES 
82F4 DS 
8273 CS 
82F6 F5 
@2F7 11F987 
#2FA 9E49 
a2FC C09508 
82FF F1 
438 C1 
8301 D! 
8592 El 
8343 C9 


PR4ÿ79: 


n 


, 
8384 ACIC616262SI6N0N: 
9389 1C487A7A 
8390 1D6D60 
8319 1FIAAAGAF 
#52F 1F128C2846 
835E 1F8F6D546F 
8393 1FI6REASEF 
#3BA 1F1E 105452 
, 
8301 8CICE1494PSELNSG: 
9506 1C486060 
#3DA 1D6161 
A5DD 1F4ESA 
ASER SFSFSFSFSF, 
f416 IF8E8B 
8419 SFSFSFSFSF 


ÿ 
8458 IFSEGE  DRVNSG: 
8453 466F726D61 
848B 8824 


$ 
8480 IFBELA4G6FTREASA: 
8490 27754E6528 


Û 
#ACA BCIC61AY4BLIST: 
S4CF 1C4U6D6D 
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LI 
NVI 
CALL 
eu 
MVI 


184 

8F9H 

D, REDOMG 
CPRINT 
RO0S 

D. REDOH2 
CAPRINT 
B00S 
C,CONIN 
8D0S 
COPY 
STRT2 

CR 
SELECT 
ESC 
BYEBYE 
E BELL 
C,CONQUT 
BDOS 
CHOIC2 
D,EXITHS 
CAPRINT 
BD0S 


sdynz adresse (288) 
3-6 displ. 


DRVNUN 
EA 


idrive a/b 
idrive reg ’e’ 
A8 ipicte 8 

D.A ipiste rea ’d’ 
J srst 18 (288) 
SKTRE cherche piste 


8C765H sanstruction 87 
7 iron 

H ‘sauvegarde regs 
D 

k 

PSW 

D, TRFMS2 

C,PRINT 

800$ 

PSW 

B 

D 

H 


CLS,28,'a”,"bb’ jcls, ink bleu 

28,0" ’22’ ÿpaper blanc 

29, ‘border gris 

31,26,18,”FORMAT.CON vi.88 81 Dec 1986” 

31,18,12," (Foraatteur pour Anstrad CPC sous CP/M v2.2)’ 
31,15,13,”Paur lecteurs 3", 3"1/2, 5"1/4 (48/84 pistes) SFDD’ 
31,22,14," Copyright (c)1986 Robert C. Kuhaann’ 
31,34,16,PRESSER UNE TOUCHE $” 


CLS,28,’a”,"@@" jcls, ink noir 


28,'€° ,'sn’ paper gris 

29,’ aa” ‘border bleu 

31,14,18 
BR 
nas UPARAMETRAGBE s’ 
31,14,14 


’Foraattage de la disquette dans le DRIVE lettre (A,B)? 
85,"#” 


H,14,16,'Foraattage d’ 
27h,'une disquette de 48, ou 88 pistes: (4,8)? ?,85,8" 


CLS,28,'a,"R@" jcls, ank noir 
28,'€’,'en’ spaper gris 


843 1D6161 
8306 1F#E94 
840$ SFSFSFSFSF 
S8E 1FAE4S 
8SU1 SFSFSFSFSF 
9546 1F1ES82A28 
855F 1F1E8A2928 
9578 1FLE4C2A28 
9591 1F1ERE2A24 
#SAA 1F1E192428 


; 
8503 1F1AI34S68LISTI5: 


, 
45E7 OC1C614848FDRNS6: 
BEC 1C486666 
85F4 104849 
85F3 1F4A8A4154 
8692 4C6529666F 
8635 1F114C496E 
864€ 3438207%69FQURG: 
85b6 413A24  LETTER: 


9669 1F4EBEABEFCOPESC: 
8687 2428416261 


, 
B6A7 BCICHLAGARTREMSG: 
SbAC 1C496F6F 
8689 1D44g 
#bB3 1F1842 
8686 SFSFSFSFSF 
@6E7 1F1A83 
G6EA SFSFSFSFSF 
8718 1F1885 
S7LE SFSF5FSFSF 
9758 1F18862058 
4784 1F14872A58 
9788 1F14982428 
47EC 1F18482429 


, 
87F9 181F148A TRFNS2: 
S7FD SFSFSFSFSF 
882F 1F100B2858 
9863 1F1A8C2834 
8897 1F19002924 
88CB 1F14902428 


, 
4807 2818471F12REDONG: 
A8E9 27756Eb528 
8998 1F12124368 
8936 1F12133175 
8965 1F1215566FREDON2: 
8996 8824 

LU 
8998 OCICELAAAGEXITAS: 
8990 1C486D6D 
g9A! 1D606D24 


, 
4945 68 SPT: 
9946 88 NUATRK: 
4947 08 NATTRK: 
898 96 


, 
899 #AA8019280F $PCH: 
S9RD 2049809248 


, 
9901 0209818208FS$ IBM: 
89ES 9890240288 


, 
89F9 S889418208FSSYST: 
SAGD 4628489288 


; 
2921 2898019288FSDATA: 


8A3S 6482C80288 

; 
849 5206 FORNAT: 
gA4B #7 
84 TABLE: 
8A74 


Pour CPC Magazine par Robert C. 


DRYNUM: 


DB 
DB 


08 
DB 


DB 
DB 


DB 
LE] 


DK 
DB 
LS 
END 


29,’ aa’ 
31,14,84 


border bleu 


nr LHENU - 
31,38,88,74 SYSTEME... 169 - 1,6 
51,34,18,7# VENDEUR... 169k - 2,8 
31,34,12,7# DATA...... 178K - 3°,8 
31,38,14,7# 1En CP/MB6 154K - 4,8 
31,39,18,°# PCN 3"... 173K - 5$ 


FORMHATS]) is 


31,26,19,’Choix du foreat: (1,2,3,4,9)7 ?,BS,°$" 
CLS,28,'a’,’@@ 5cls, ink noir 

28,7€°,’Ff paper rouge 

29,'@6’ border noir 

31,18,18,"ATTENTION - ? 

?Le foraattage DETRUIT les donnees sur la disquette!” 
31,17,12,'Incerer une disquette ? 

"48 pistes dans Le drive ” 

LH 


31,14,14,'Forsattage: Presser or er F 
* Abandonner: Presser "ESC*, *,48H,7$ 


ils, ink noir 
paper aobre 


CLS,28,’a’,'6€ 
28,'@",'a0” 


29," sborder noir 

31,16,82 

31,14,83 

Pr rssl [ FORMATIAGE ]__________ d 
31,16,85 

: ?,REV 


31,16,86," Pistes 988209 AGI11111111122222222223333333533 
31,16,87," 89-39: 9123456789012545678901234567890123456789 ? 
31,18,88,” Ù 
31,16,68,” 7,152,78 


REV, 31,16,18 


31,18,11," Pistes 4444444444555599559568666866887777777777 
31,18,12,” 49-79: 0123456789912345878981234587090123456789 
31,16,13," Û 
31,16,13,° 


7 ?,REV,BELL,51,18,17,'’Foraattage d” 

27h,'une autre disquette,... "COPY"? 

31,18,18,’Changer le choix du forsat/drive,.. "ENTER"? 
31,18,19,'Quitter - retour au systese CP/N,,.,, "ESC*4” 
31,18,21,' Votre choix? Presser (CPPY, ENTER, ou ESC): ? 
R5,’4’ 


CLS,28,'a”,'6@” jcls, ink noir 
28,'@",’na’ paper gris 

29,'ae$? sborder gris 

$ isecteurs par piste 
0] 58-39 ou 8-79 pistes 
$ ipiste à foraatter 

C] slecteur à foraatter 


9.8,81H,92,8.8,86H,82,8,8,82H,92,8,8,R7H,82,8,4,83H,82 
9,8,08H,82,8,8,84H,82,8,8,894,02,8,8,054,92,9,0,0,8 


9,8,81H,92,8,8,82H,82,8,9,83H,82,8,8,M4H,82,9,8,95H,82 
8.8,864H,82,8,8,87H.82,8,9,08H,92,8,9,0,0,8,0,4,4 


#,8,41H,82,8,9,46H,92,8,9,42H,92,8,8,47H,82,8,6,43H,92 
9,9,484,92,8,4, 44H, 42,8,9,49H, 92,0, 8, 454,82,9,0,9,4 


#,8,9C1H,82,9,8,0C6H,82,9,8,8C2H,82,9,8,0C7H,82,9,8,0C3H, 42 
9,9,8C8H,82,8,8,8C4H,82,9,8, 8C9H, 82,9,0,8C5H,87,8,4,9,8 


8C852H sous progranne de forsattage 
7 ;ros 
44 iparasetres de forsattage 


Kuhmann 


DIGITALISEUR D'IMAGES ARA POUR 
CPC : 990 F TTC 


Produit Français, conçu et réalisé par la SARL JAGOT & LEON et M.P. BORG 
Fonctionne sur TV, magnétoscope où caméra SECAM. Logiciel écrit en Assembleur. 


*  DIGITALISATION en continu 
(3 images/sec.) où coup par coup. 


* LOGICIEL DE DESSIN : 

— Insertion d'images. 

— Modification des couleurs à partir 
du PIXEL jusqu'à l'écran total. 

— Fenêtrage paramétrable. 

— ZOOM échelle 4. 

— HARDCOPY échelle 1. 

— Définition de TRAMES au choix de 


l'utilisateur. 


dis 


* LOGICIEL DE HARDCOPY EN TAILLE REDUITE. (Image ci-dessus : DMP 20001. 
* LOGICIEL d'exemple d'intégration d'image sous BASIC. 
* Livré avec cordon PERITEL. 


* EN PREPARATION : PALETTISEUR de 512 COULEURS compatible ARA. 


PASTEL : LOGICIEL DE TRANSFORMATION 
ET DE COMPOSITION D'IMAGES VIDEOTEX 


* TRANSFORMATION d'une image 
digitalisée en image aux normes 


VIDEOTEX. 


* Livré avec cordon de liaison CPC 
MINITEL. 
*PRIX : 690 F HT. 


* LOGICIEL de COMPOSITION 
d'écrans permettant de modifier quil 
l'image “ARA”" avec TOUS les attri- | 
buts du vidéotex : tailles Inormale, | 
doublel, soulignement, clignotement, (L 
couleurs (fond et caractères], etc. LU 


— = 


RES 


st 


np noi 


BON DE COMMANDE 
à adresser à SARL JAGOT & LÉON, 17, rue des Alliés - 42100 ST-ETIENNE, Tél. 77.33.13.82 


O Disquette de démonstration (Pastel ou Aral : 50 F Port compris. 
Q Digitaliseur d'images ARA 990 F + Port 30 F. 

O Logiciel PASTEL lavec cordon : 818,34 F + Port 30 F. 

O Ci-joint un chèque du montant de ma commande. 
Eu 
NO 


Expédition en Contre-Remboursement. 


NUE ac pates ADRESSES He rent dent nie en Re A SV aur Ces 


BIDOUILLE 


REPONDEUR TELEMATIQUE 


Christian MATHIS 


De nos jours, le minitel entre en force dans les foyers français. La fin de 
ce siècle étant placée sous le signe de la communication, je vous propose 
de réaliser à peu de frais un répondeur télématique sans interface série. 
Ce répondeur vous permettra de diffuser et de recevoir des messages pen- 
dant votre absence. 


Matériel nécessaire : 

— un Amstrad CPC 464 + disquette 
1664/6128 

— un minitel retournable 

— un câble de liaison CPC/minitel 

— une interface de détection de 
sonnerie 


Pour le câble de liaison, on utilisera celui 
décrit par Eddy Dutertre dans CPC 
n° 14. L'interface ne faisant appel qu'à 
un nombre limité de composants élec- 
troniques, sa réalisation ne posera donc 
aucun problème même pour les débu- 
tants. Il suffira de se reporter aux indi- 
cations suivantes. 


Descriptif de l'interface (fig. 1) : 


— Rappel des caractéristiques d'une 
ligne téléphonique : 

Au repos, on dispose sur la ligne d'une 
tension de 48 volts en courant continu. 
Lors d’un appel, la tension passe de 48V 
à environ 9OV en courant alternatif. On 
notera donc sur la figure 1 le conden- 
sateur C1 à l'entrée de la ligne. Il sert 
à bloquer le courant continu quand la 


92 


ligne est au repos. Lors d'un appel, C1 
se laisse traverser par le courant alter- 
natif et R1 limite l'intensité de crête 
dans le pont de diodes RED. On dispose 
donc à la sortie de RED d’une tension 
continue. Cette tension sera filtrée par 
C2, puis abaissée à 12V par la diode 
zener Z et une fois de plus filtrée par C3. 


On pourrait utiliser cette tension pour 
piloter un transistor qui, branché sur le 
port joystick, déclencherait le répon- 
deur : mais, pour plus de sécurité, on 
utilisera un opto-coupleur O qui isole 
électriquement la ligne téléphonique du 
port joystick. Le courant traversant O 
sera limité par R2. 


— Réalisation du circuit imprimé : 
Celui-ci sera réalisé sur une plaque 
d'époxy et tracé avec des pastilles 
transfert genre mécanorma ou par pro- 
cédé photo. Commencez par implanter 
les résistances puis les condensateurs, 
les semi-conducteurs et enfin câbler les 
prises joystick et téléphonique. Il faudra 
faire attention à l'orientation des com- 
posants RED, C3, O et Z. 


— Liste des composants : 

C1 : 1 uf 100 volts polyester 

C2 : 220 nf 63 volts polyester 

C3 : 1,5 uf 25 volts chimique 

R1 : 15000 ohms (marron, vert, orange) 
R2 : 33000 ohms (orange, orange, 
orange) 

R3 : 100 ohms (marron, noir, marron) 
RED : pont de diodes 

0 : opto-coupleur 

Z : diode zener 6V 400 mW 

divers : un connecteur 9 broches (port 
joystick) ; une prise téléphonique mâle 
ou gigogne 


Passons maintenant aux logiciels : 

Il faudra tout d'abord créer le pro- 
gramme Ser1.bin en langage machine 
qui sera généré par le programme 
CHARGEUR”. || est à noter que j'ai 
repris la routine de Eddy DUTERTRE 
parue dans CPC n° 14 (article AMS- 
TRAD et MINITEL). Ensuite, il faudra ini- 
tialiser les fichiers ‘‘’message’’ et 
‘’annonce””’. Pour cela, entrez en mode 
direct : 


com= 1Î:openout'‘totmes'':write 
# 9,com:closeout 


:write 


coa = l:openout'‘totann'’ 
# 9,coa:closeout 


Il ne restera plus qu'à taper le pro- 
gramme principal et le programme de 
sortie sur imprimante. On peut se 
demander pourquoi séparer ces deux 
logiciels. Voici l'explication : le port 
imprimante étant occupé par notre câble 
de liaison minitel, il va falloir le retirer 
pour connecter l'imprimante et, pour ne 
pas risquer d'endommager le CPC, il 
vaudra mieux arrêter celui-ci. Dans le 
programme principal, en ligne 870, vous 
pourrez remplacer ‘GERARDMER"' par 
le nom de votre ville à condition que 
celui-ci ne dépasse pas 18 caractères et 
en ligne 890 changer le numéro de 
téléphone. 


Utilisation du répondeur : 

Mettre en marche le CPC, le minitel et 
brancher l'interface de détection de son- 
nerie. Après avoir lancé le programme, 
celui-ci vous demande la date. Il faudra 
la rentrer sous la forme jj.mm.aa. 
Ensuite, il vous demandera votre nom : 
ce nom servira de mot de passe quand 
vous voudrez interroger le fichier mes- 
sages à partir d'un minitel. Après avoir 
entré ce nom, le répondeur se mettra en 
veille. À ce stade, si vous appuyez sur 
la touche ENTER, vous serez en pré- 


sence d’un menu qui vous proposera 
trois options vous permettant de sortir 
du programme, d'éditer un fichier ou de 
retourner en veille. À vous de choisir. 


Quand vous serez à l'extérieur de chez 
vous, Vous pourrez interroger le répon: 
deur à partir d'un minitel. Si vous vou- 
lez interroger le fichier (messages), il 
faudra appuyer sur 4 et à la question 
votre nom et envoi, entrez le mot de 
passe ci-dessus mentionné. 

Les fichiers ‘‘totmes.'’et ‘‘totann.’’ sont 
limités à 16 messages ou annonces 
pour avoir un chargement rapide en 
mémoire. 

Imaginons que quelqu'un appelle votre 
répondeur et y laisse un message. Après 
la demande de confirmation, son mes- 
sage sera sauvegardé sous le nom de 
‘’mes.”". Quand cette personne se sera 
déconnectée de votre répondeur, l’ordi- 
nateur ouvrira le fichier ‘’totmes.’’ et 
chargera la mémoire avec le contenu 
dudit fichier. Ensuite, il ira ouvrir le 
fichier ‘’mes.””. Si le fichier ‘‘totmes.'’ 
est plein, l'ordinateur effacera le plus 
vieux message, décalera tous les mes- 
sages vers le bas et enregistrera le mes- 
sage le plus récent à la fin du fichier 
‘’totmes.”’. 

Si vous possédez ‘’ODDJOB’’, vous 
pourrez accélérer les accès au disk avec 


INTERFACE TV 


rx 1390,00 Frrc 


CARACTERISTIQU ES TECHNIQUES 


16 chaînes PAL/SECAM à recherche automatique 
Prise Péritel pour CANAL + 
Equipée spécial moniteur AMSTRAD 


la routine ‘’SPEEDISC”’. Il faudra donc 
faire run ‘’SPEEDISC"’ avant de lancer 
le programme principal. 


Essai du répondeur en local : 

Il vous faut deux minitels (empruntez 
celui d’un copain) et deux prises télépho- 
niques (disponibles dans n'importe quel 
supermarché). Réalisez le montage de la 
figure 4, branchez les deux minitels et 
lancez le programme principal. Entrez la 
date puis le nom de code ; le répondeur 
est en veille. Tapez ‘’ENTER"’’ puis S pour 
sortir et enfin ‘’GOTO 86”. À cet instant, 
le minitel connecté au CPC entre en con- 
nection. Tapez ‘’'CONNEXION/FIN’" sur 
le deuxième minitel ; la liaison est éta- 
blie, vous pouvez vérifier le bon fonction- 
nement de votre répondeur. 

Voilà, j'espère avoir été assez explicite 
et que vous serez nombreux à vous lan- 
cer dans la réalisation de ce répondeur 
économique. 

Si vous désirez me poser des questions 
ou si la réalisation de l'interface vous 
pose des problèmes, vous pouvez m'ap- 
peler sur mon répondeur télématique au 
29 60 00 10 et me laisser un message. 
Je vous répondrai dans la rubrique 
annonce. Mais respectez les horaires : du 
lundi au vendredi, de 8h30 à 11h30 et 
de 14h à 16h30. Merci. 

BONNE BIDOUILLE ! 


avec câble Péritel sur tout moniteur RGBI couleur. 
| REVENDEURS, CONTACTEZ-NOUS ! 


= — — 


4 BON DE COMMANDE 
Je désire recevoir : 


N'ayant pas de moniteur Amstrad, envoyer un câble d'adaptation Péritel [] 190,00 F TTC. 


| Article : quantité : prix total : | 
| Participation aux frais de port : ajouter 50 F - prix total : l 
DEIA [] Ci-joint mon règlement par chèque : | 
——————— | [ Je règle contre remboursement à la livraison (frais en sus) | 
62, cours de l’Yser Nom: Prénom | 
FO RORDERUX | areas:  _— 
| Ville : ____ Code postal : | 


SHEMA DE PRINCIPE 


PRISE JOY. 
COTE SOUQUR 


TRACE DU CIRCUIT IMPRIME 
ECHELLE 1 


VERS LIGNE 


PRISE DE RACCORDEMENT 


EE CABLAGE PRISES TEL. 
ds POUR LES ESSAIS 
F16.4 
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Listing 1 
10 ‘ =sssssssesessesesensseesesesasszzs 
20 ‘ Generateur de la routine SERI1.BIN 
HO 7 sesameummamsxemenansmmEmMENNENZEMENMNIENNEN TES 


40 MEMORY %9FFA 

50 ADD=8&AQ00 

60 FOR I=ADD TO %&A179:READ A$:POKE I,VAL 
C"RU"+A#) : NEXT 

70 DATA DS,E5,F3,21,00,1,36,00,06,07,0E 
,00,23,1F,DC,21,A0,CB,16,10,F7,23,79,E6, 
O01,1F,CB,16,23,36,01,18,04,F5,0C,F1,09,2 
1,00,A1,01,00,EF,16,0A,3E,00,CB,1E,17,ED 
:79,C0D,40,40,25,15,20,F2,37,E1,D1,FB,C9, 
CS,01,77,00,0E,78,H1,20,FE,C1,C9 

80 DATA 00,00,00,00,00,00,00,00,00,00,00 
:00,00,00,00,00,00,00,00,00,00,00,00,00, 
00,00,00,00,00,00,00,00,00,00,00,00 

90 DATA 00,00,00,00,00,00,00,00,00,00,00 
,00,00,00,00,00,00,00,00,00,00,00,00,00, 
00,00,00,00,00,00,00,00,00,00,00,00,00,0 
0,00,00,00,00,00,00,00,00,00,00,00,00,00 
00,00 

100 DATA 00,00,00,00,00,00,00,00,00,00,0 
0,00,00,00,00,00,00,00,00,00,00,00,00,00 
:00,00,00,00,00,00,00,00,00,00,00,00,00, 
00,00,00,00,00,00,00,00,00,00 

110 DATA 00,00,00,00,00,00,00,00,00,00,0 
0,00,00,00,00,00,00,00,00,00,00,00,00,00 
:00,00,00,00,00,00,00,00,00,00,00,00,00, 
00,00,00,00,00,00,00,00,00,00,00,00,00,0 
0,00,00,00,00,00,00,00,00,00,00 

120 DATA F3,FD,21,FE,9F,00,CD,4C,A1,FE,D 
F,28,25,F3,CD,44,A1,3:8,F3,01,24,00,08,78 
,#1,20,FH,16,07,2E,00,CD,40,A0,CD,44,A1, 
CB,1D,15,20,FS,CB,1D,7D,E6,7F,FD,77,00,F 
H,09,01,32,FS,ED,78,17,17,09,01,0E,F4,ED 
:49,06,F6,ED,78,E6,:0,4F,F6,C0,ED,79,ED, 
49,04,3E,92,ED 

130 DATA 79,05,0E,42,06,F6,ED,49,06,F4,E 
D,78,C1,FS,3E,82,ED,79,05,ED,49,F1,C9,00 
140 SAVE"ser1.bin",b,8&A000,8179 


Listing 2 
10 SESRRSNESSSSSSLONDSENDSSDERMNMEMSEESNME 
20 ‘REFONDEUR TELEMATIQUE par Ch. MATHIS 
FO ‘'asesesssesssseseseensesenseossesemse 
40 MODE 2 


O0 POKE &RDF2,0:FOKE &EDFI,®%AO 
69 MEMORY &9FFA:LOAD'"'ser1.bin" 
70 OFENOUT"dum": MEMORY HIMEM-1:CLOSEOUT 
80 WIDTH 255:FRINT#B,CHR£# (12); 
. 90 ON ERROR GOTO 3170 
100 DEFINT a-2:DEF FN ca=FEEK(&9FFB) : DEF 


FN car $=CHR# (FEEK (&R9FFE)):DIM t#(259) 


110 INPUT'date : 
N 110 

120 PRINT: INPUT'Nom : 
)+10 THEN 120 

1350 CLS 


"sda#: IF LEN(da#)<8 THE 


"snom*£:IF LEN(nom£ 


150 ‘ 

160 CALL 8RBEOS 

170 A=QO:IF INÉEY(76)=0 THEN aza+i ELSE I 
F INÉHEY(18)=0 THEN 2440 ELSE 160 


180 FOR i=0 TO 10000: NEXT 
190 IF INKEY(76)=0 THEN a=a+i ELSE GOTO 
160 

200 IF a=% THEN 240 ELSE GOTO 180 
TE 

220 = CONNEXION mm 
0 


240 PRINT#G,CHRS (&1R) : CHRE (439) 3: CHRS (LOF 
)SCHRE (BI) 3: CHRE (839) ; CHR (&68) ; 

250 FOR i=1 TO 100:NEXT:CALL &A110: PRINT 
#8,CHR#(12): 

260 t#f(1)æ""st#(2)=n" 

270 n1i=2:FIN=O:V=O 

280 GOSUR 1150 

290 ‘ 

200 SAISIE CHOIX----——————— 

310 ‘ 

320 n=i 

SO IF TF(1)42"" THEN T#(1)="" 

240 k=Q:flag=0!:flagi=i: flagz=0: MAXI=0: 60 

SUR 810 

390 IF FIN=1 THEN GOSUB 1860:GO0T0 160 

360 IF t#(n)="" THEN 300 

370 IF ASCT#(N))<449 OR ASCIT#(N))>52 OR 
flag=1i THEN GOSUR 1070:GO0OT0 2300 

280 IF Tf(1)="1" THEN IF mes=i THEN FRIN 

TH#B,CHRSE (31) : CHR£ (48) ; CHR£ (48) : CHR (24): 

CHR (31): CHR# (64) : CHR# (65): "Fas plus d'u 

n message par connexion": GOSUER 1090:G0OT0 
320 

390 IF T#(1)="2" THEN IF annsl THEN FRIN 
TH#8,CHR$ (31) : CHRS$ (48) : CHR# (48) ; CHR (24): 
CHRE (31)3CHRE (64) : CHRE (65): "Fas plus d'u 
ne annonce par connexion": GOSUR 1090:G0OT 


O0 500 

400 ‘ 

410 ‘mm SAISIE NOM---— mme em 
420 ‘ 

430 n=n+i 

440 k=O:flag=0:flagi=2:flagz=0:MAXI=10 
450 IF t#(n)<5"" AND T#(1)£:"4" THEN 500 
460 IF t#(1)="4" THEN GOSUR 1330:FRINT#HS 


CHR (27); CHRE (68) sst#(2)="": GOSUR 810:F 

RINT#B,CHRE (27) : CHR#(71):: GOTO 770 

470 GOSUR 13:30: GOSUR 810 

480 IF FIN=1i THEN GOSUR 1860:GO0OT0 160 

490 IF T#f(n)="" THEN t#(n)= "INCONNU" 

900 IF t#f(1)="1" THEN mf="message":GOSUR 
1350: GOTO 570 d 

910 IF T#(1)="2" 
1:50: GO0OT0 570 

920 IF T#(1)="3" THEN m$fs='"annonce"sn$sté# 
(2):GOSUR 2130:IF fin=i THEN 160 ELSE 27 

(a) 


THEN m$='"annonce": GOSUR 
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530 mt="message":n$#=t#(2):GOSUR 2150:t#( 
2)="":IF fin=1i THEN 160 ELSE 270 

540 ‘ 

DJO SAISIE MESSAGE OÙ ANNONCE---- 
560 ‘ 

970 k=Oin=nit+i, 


580 flag=0:flagi=0:flag2=i:MAXI=2:6: GOSUR 
810 
390 IF FIN=1 THEN GOSUB 1860:GO0T0 160 


600 IF FLAG=1 THEN GOSUR 580 

619 V=0:GOSUR 700 

620 IF v=i THEN GOSUR 1450:GOSUR 15:03:60 
SUE 810 

630 IF FIN=1i THEN GOSUR 1860:GO0OT0 160 
640 IF FLAG=1 THEN GOSUR 810:GO0OT0 640 
650 GOSUE 1740 
660 GOTO 270 

870 ‘ 

680 ‘—----- TESTE 
690 

700 FOR i=3 F0 15 
710 IF t£(i)ss"" 
.720 NEXT 

7:30 RETURN 

740 
750 
760 
770 
780 
790 SAISIE CARACTERES-------- 
800 ‘ 

810 PRINTHBS,CHRE (IE) ; CHR# (&59) ; CHRE (&68 
): 

820 CALL &%A110 

850 IF FNca=19 THEN 870 

840 IF këzmaxi THEN flag=1i:RETURN 

850 IF FNcaï:34 AND FNca*31 THEN FRINTHB 
,FNcar#i;sk=k+lit#(n)=t#(n)+FNcarf 

860 GOTO 820 

870 CALL %A110:GOSUR 910 


SI PAS DE TEXTE------- 


THEN vzl:isis 


——————— TESTE SI NOM=NOME---——--— 


IF T#(2)=NOM$ THEN 530 ELSE 260 


880 IF flag“:0 THEN flag=0:GO0TO 820 

890 RETURN 

900 ‘ 

910 ‘--TESTE CARACTERE MNT FOUR TEXTE-- 
Ca * 

930 IF FNca=75 OR FNcaï=86 THEN GOSUER 10 
40: RETURN 


940 IF FNcaf65 OR FNca:72 THEN flag=i:kRE 
TURN 

950 IF FNca=65 THEN RETURN 

960 IF FNca=66é THEN ON flag2 GOSUR 1650: 
flag=1:RETURN 

970 IF FNca=67 THEN ON flagi GOSUR 1130, 
1310:1IF n°3 THEN FRINTHB,t#(n);:flag=1i:F 
RENTE ,CHRE CR 15) 3 CHRE (39) ; CHRS (26B) 32 RE 


980 IF FNca=69 THEN FLAG=1:GOSUR 1070:RE 
TURN 
990 IF FNca=71 AND kÿO THEN FRINT#8,CHR# 


(CB) SCHRE (IE) sCHRÉ (8) si kH=k-1st#(n) =LEFTÉ( 
t#F(n),k):flag=1i: RETURN 

1000 IF FNca=72 THEN ON flag? GOSUR 1580 
: flag=i: RETURN 

1010 flag=1:RETURN 
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1020 
1030 


a —— DECONNEX ION--—--—— 
1040 FRINTHS 1 CHRE (51) : CHR (48) ; CHR# (48) £ 
CHRS (24) 3 CHR CX1) 3 CHRE (64) 3 CHR (09) + "Fin 
de communication" 

1950 PRINT#B,CHRE (27) : CHR# (57) : CHR£ (107) 
stfinsi: RETURN 

1060 ‘ 


1090 IF flag?>0 THEN 1110 

1100 FOR i=1 TO k:PRINT#B,CHRS£ (8) : CHR# CZ 
2) 3 CHRE (BD) 22 NEXT 2 t$ (MI: keO: RETURN 
1110 y=n+64:x=(LENCE#(n))+65)-LENCE#(n)) 
: PRINT#B,CHRE (20) ; CHRE (31) : CHRE CV) 3: CHRE ( 
2) 3 CHR (24) ; CHRS (32) 3 CHRS (18) à 

1120 1=#LENCE#(n) ) +64: PRINT#G,CHR£ (1) 3 CHR 
$ (31) 5 CHRE (y) 3 CHRE O0) 3 CHR# (17) : tk=OstE(n 
)="0; RETURN 

1130 : 
1140 
1150 PRINTHB,CHRE (12) : CHRE (31) ; CHR (48) : 
CHR (48) ; CHRS (24) 

1160 PRINTHB,CHR# (10); CHR#(24)3" "x CHR ( 
18) ; CHR# (107 ) à CHRE (27) ; CHRE (84) : CHRS CS 
3 CHR (18) ; CHR£ (64) ; CHR (27) : CHRE (79) à 
RARDMER“ ; CHR# (27) ; CHR (76) : CHR (24) 
1170 PRINT#B,CHRS (27) : CHR# (84) ; CHRE (22) 
CHR# (24) ; CHRS (13) 5 CHRÉ (10) 3 CHRS (27) : CHRE 
(84) ; CHR# (32) ; CHRE (18) : CHRE (72) : CHR (27) 
3 CHRE (64) ; CHR (27) ; CHRE (77): "repondeur t 
elematique";CHR£ (27) ; CHR£ (76) : CHR# (24) 
1180 PRINT#B,CHR£ (27): CHR£ (84) ; CHR£ (32) s 
CHR (18) : :CHR# (76) "tel. 29 60 O0 10":CHR 
# (24) 
1190 FRINT#S,CHR# (27) ; CHR$ (84) : CHR (24): 
CHR (32) : CHRS (18): CHRE (107) 5 CHRE (27) à CHR 
3 (67) FCHRE (24) CHR (126) 3 CHRE (46) 3 CHR 
OZ 

1200 PRINT#8,CHR# (31) : CHR (72) : CHRE (87) ; 
CHR£ (2 7) ; CHRÉ (72) ; CHR (27) : CHR£ (79) ; "BON 
JOUR"; CHR (27) ; CHRÉ (72) : 

1210 PRINT#B,CHRE£ (31) : CHR (74) ; CHR£ (70) 3 
CHR$ (125) : CHRE (126) ; CHR# (24) : CHRE (126) :C 
HR (18) : CHRE (92) ; CHRE (122) ; 

1220 PRINT#, ER AE te A de 
27): CHR 


“GE 


5 (78); : CHRE (27) 3 CHRS (92) 5" 1e; : CHRE (27) ; CHR 
#(92);" " : CHRE (27) 3 CHRE (76) ; CHR# (27) 3 CH 
R#(92):;" Laisser un message ";:CHR#(27)3:C 


HRE (92) 3: CHRE (32) : CHRE CE2) s CHRE (1ZS) ; 
1230 FRINT#8,CHR# (31) ; CHR# (78) : CHR# (72) 5 
CHRE (27) 3 CHRE (78) 3 CHRE (27) 3 CHRE (92) ; "23 
CHR# (27) ;CHR# (92) 5" MS CHR# (27) ; CHR# (76) 
sCHRE (27): CHRÉ (95) :" Fasser une annonce 
Ms CHRE (27) s CHRE (92) : 

1240 FRINT#8,CHRE (31) : CHR£ (61) : CHR# (70): 
CHR£ (125) : CHRE CZ2) s CHRE (32) 3; CHR (27) 5 CHR 
£ (78); CHR£ (27) ;CHRE# (95) 3 "TU CHRE (27) ; CHR 
Æ(92)s3"  "sCHRE (27): : CHR# (76) : CHR (27) 3 CH 
K#(93):" Lire les annonces MsCHRF (27): C0 
HR£ (92) ; CHRE CZ) : CHRS# (32) ; CHRE (1ZS) ; 
1250 FRINT#8,CHRE (CE1) : CHR£ (82) : CHR (70): 
CHRE (125) : CHRS (95); CHRS (24) 5 CHR (95) : CHR 
Æ (18); CHRE (92) ;CHRE (125) : 


1260 FRINTHS,CHR# (31) ; CHR# (85) ; CHR# (70) ; 


CHRE (125) : CHRE (24) ; CHR# (126) : CHR (18) ; CH 

R£& (923) ; CHR (1 

70) 3: CHR£ (125) : CHR (52) : : CHRE (32) : CHR (27) 

: CHRE (84) : CHR# CZ 2) ; CHR£ CZ 2):" Votre choi 

* et M3 CHRE (27) 3 CHRE (93) 3 "ENVOI" ; CHR (27 

)sCHR# (92) 5 

1270 FRINT#8,CHRS# (22) : CHR C2) : CHR£ (SE) à; 

CHR£ CE 1) : CHR (86) 3 CHRS (101)  CHRE (123) 3 CH 

RE C21) : CHRE (87) : CHR (70) 3: CHRE (125) ; CHRE ( 

32) : CHR£ (32) 3 CHR# (27) 3 CHR# (84) ; CHR CZ) à 

1280 PRINTHS , CHR C1) 3 CHR (87) : CHR# (101) 

5: CHRE (123) : CHRE (51) 3: CHRE (88) ; CHR (70) ; CH 

R£ (125) : CHR (24) ; CHR£ (95) 3 CHR£ (18) ; CHR ( 

923): CHRE (127) 3; CHR (31) : CHR£ (87) ; CHR (76) 

s CHR (17) 3 

1290 RETURN 

1500 ‘ 

1710 ----- AFFICHAGE QUESTION "NOM"----- 

1520 ‘ 

1330 PRINTHB,CHR# (31) ; CHR (86) ; CHR£ (B2) ; 

" nom et "5 CHR£ (27) ; CHRE (923) ; "ENVOI"; CH 

R£ (27) 3: CHRE# (92) ; CHR£ (51) s CHRS (87) 3; CHRE (7 

6): CHRE C2) : CHRE (8) : CHR (17); 

1340 RETURN 

1350 ‘ 

1360 AFFICHAGE "MESSAGE DE"------ 
1570 ‘ 

1380 FRINT#H#8,CHR£ (20); CHR# (12) : CHR (31) ; 

CHR£ (48) : CHR# (48) ; CHR£ (24) s CHR# (1:23) 3; CHRE 
(10) 3 CHRE (27) : CHR (84) ; CHRE (T2) ; CHRE (24) 
sCHRE (CID) sm#s" de : "sLEFT# CT# (22,10) 3° 
le "sdafs:sCHRE£ (17) ; CHR# (10) 3 CHRE (24) 3" 
Ms CHR£ (18) : CHR (102) :; 


1390 
1400 ‘--AFFICHAGE RETOUR SUITE ENVOI--- 
1410 
1420  FRINTH#O,CHR£ (31) ; CHR (80) : CHRE (65) 


: CHRE (24) ; CHRE (96) ; CHRE (18) s CHR# (103): FR 
INT#8,CHRE (27) ; CHR£ (85) : CHR (SZ) ; CHRE (24 
):CHR# (22); "A chaque fin de ligne,tapez 
MsCHRE (27); CHR (93) 3;" SUITE "3; CHRE (27 

)3CHRE (92); 

14350 FRINTHB,CHRS (27) ; CHRE (84) : CHR# (52) à 
CHR# (24) $CHR$ (32) 3 "Passer a la ligne sui 
vante :CHR# (27): CHR# (93): " SUITE "3 
CHRE (27) ; CHR (92) ; 

1440 FRINTH#8,CHRS# (27) ; CHR (84) ; CHR (32) 
CHR (24) :CHR# (32); "Fasser a la ligne pre 
cedente ";CHRE(27) ; CHR# (9) 5" RETOUR "C 
HR (27) ; CHR# (92) 

1450 FRINTHB,CHRE (T1) : CHR (85) : CHR (65) ; 
CHRS (27) 5 CHR (89) ; CHR CS 2): CHR# (24) ; CHRE 
(32)3:IF V=0 THEN FRINT#8,"Valider le te 
xte "Ms: ELSE FRINTHS,CHR# (27) 
EE 

Ms CHRE (27) s CHR# (7 

1460 FRINT#8, D cos );" ENVOI 
“3 CHR (27) : CHRE (92) 

1470 FRINTHS,CHRE# C51) : CHRE (67) 3: CHRE (65) : 
CHR# (17); 
. 1480 RETURN 

1490 


23) $CHRS (31) 5 CHARS (86) 5 CRE C 


1500 ‘-------- AFFICHAGE TEXTE --------- 
1510 ‘--S1 "ENVOI" FOUR COMFIRMATION--- 
1520 


1530 FOR i=35 TO 15 

1540 FRINTHB,CHRE (31) ; CHR# (I +64) : CHRE (65 
Ds CHRE (24) ; CHRE (22) ; CHR£ (18) : CHR (102): C 
HRE (17) :CHR#E (27) :CHRE (70) TE CI) 

1550 NEXT: YEN+é4: X=LENCESÆ (n)) +65: FRINTHS 
3 CHRE (20) 3 CHRE CF 1) 3 CHRE Cy) s CHRE (XD) 3 CHRE ( 
17): 

1560 RETURN 


1380 TOUCHE "SUITE" ------———— 
‘—---CURSEUR LIGNE FRECEDENTE----- 
1600 

1610 IF n=ni+13 THEN RETURN 

1620 n=n+i 

16350 yen+é4: x =LENCE#Æ (n))+653:FRINTHG,CHRE 
CL) CHRE Cy) s CHRE (x) 5 

1640 EÆLENCTS (N)) : RETURN 


1650 
1660 TOUCHE "RETOUR" 
1670 ‘----CURSEUR LIGNE FRECEDENTE----- 
1680 


1690 IF n=3 THEN RETURN 

1700 n=n-1 

1710 y=n+é4:x=LENCt£ (n))+65:PRINTHE,CHRE 
CL) CHRE Cy) sCHRE CH) s 

1720 E&LENCTÆ(N)): RETURN 

1730 
1740 
1750 
1760 v=0:GOSUR 700 

1770 IF v=O THEN RETURN 

1780 FRINTHB,CHRE (7) ; CHR (31) : CHRE (64) 30 
HR# (65) ; "Sauvegarde en cours..." 

1790 PRINTHB,CHRE (20): 

1800 IF mf="message" THEN mes=i ELSE ann 
=] 

1810 MELEFTS(ME, 7) 

1820 OFENOUT m#:WRITE#9,t#(2)+" le "+da 
F:FOR i=5 TO 1S:WRITE#9,t# (1): NEXT: CLOSE 
OUT 

1830 FOR i=3 TO 15s5t#(i1)=#""aNEXT 

1840 RETURN 


‘—-SAUVEGARDE MESSAGE OÙ ANNONCE -- 


1850 

1860 ‘--REGROUFEMENT FICHIER MESSAGE--- 
1870 

1880 mf='"message":1F mesti THEN 2000 


1890 OFENIN'tot'"'+LEFTS(m£,2): INFUT#9,com 
1900 FOR i=1i TO com: INFUTHO9,TEÆECI):NEXT:C 
LOSEIN:I=I-1 

1910 IF com:2284 THEN FOR is1i TO 224:t#(i 
)=t#(i+14):NEXT:i=i-14 

1920 comsi:mÉ£=LEFTE(mÉ,3) :OPFENIN m#: WHIL 
E NOT EOF:INFUTH9,t#(i)s:i=i+1: WEND: CLOSE 
IN 

1920 3: ERA,GME 

1940 COM=I 

1950 OFENOUT'"'tot'"+LEFTS(mE,23):WRITE#9,CO 
m:FOR J=1i TO com: WRITEK9,t#£ (Ci): NEXT: CLOS 
EOUT 

1960 FOR Iz1i TO 228:t#(i)=""MINEXT 

1970 ‘ 
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1980 ‘--REGROUFEMENT FICHIER ANNONCE--- 
1990 ‘ | 

2000 m$t="annonce":IF ann£i THEN 2080 

2010 OFENIN'"'tot'"'+LEFTS(m$,27): INFUT#9,COA 

2020 FOR i=1i TO COA:INFUT#H9,t#(1):NEXT:C 

LOSEIN:I1=I-1 

2030 IF COA:224 THEN FOR i=1 TO 224:t#(i 
)=t#f(i+14):NEXT:i=i-14 

2040 COA=I:mE=LEFTE(m#,73) :OFENIN m#: WHIL 

E NOT EOF: INFUT#9,t#(i)s:i=i+1l: WEND: CLOSE 
IN 

2050 1ERA,Gm# 

2060 COA=I 

2070 OFENOUT'"'tot'"+LEFT#(m#,3):WRITE#9,co 

a: FOR J=1 TO COA WRITE#9,t#(j):NEXT: CLOS 

EOUT 

2080 FOR I=1 TO 225:t#(1)="":NEXT 

2090 ANN=0:MES=0:coa=0:com=0: RETURN 

2100 ‘ 

2110 ‘--AFFICHAGE ANNONCE OU MESSAGE--- 

2120 ‘ 

21350 FRINTH#G,CHRE (12) ; CHR# (51) ; CHR# (48) ; 

CHR (48) 3 CHRÉ (24) ; CHR C1) 5 CHRÉ (64) ; CHR 
(65)3;"Veuillez patienter un instant":O0PE 

NIN'"tot'"+LEFTS(mÉ£,2): INFUTH9,x 

2140 IF «z1 THEN CLOSEIN:FRINT#8,CHR£# (12 
)s"Fas d' "sm#f:FOR i=1 TO 2000: NEXT:RETU 

RN 

2150 FOR i=1 TO x:INPFUT#H#9,t#(i):NEXT 

2160 I=x-14 

2170 FRINT#G,CHRE (20) :; CHR# (12) : CHR# (31): 

CHR£ (48) ; CHR£ (48) : CHR£ (24) : FRINT#B,CHR£( 

27): CHR (84): CHRE CE) s CHRE (24) ; CHRE (32) ; 

ms" de :":T#(i) 3: CHRE (12) s CHR (10) s CHR#( 

24)" "3 CHRE (18) : CHR# (1023): 

2180 FOR j=i+i TO i+1Z3:PFRINT#8,t#(.j):NEX 
T 

2190 FRINTHG,CHRSE (31) : CHR (80) :; CHR (65) : 

CHRE (24): CHR# (96) ; CHR# (18) ; CHR#£ (103); 
2200 PRINT#8,CHRE (27) s CHR (95) ; CHR (27) 3: 
CHR£ (79) : FRINT#8,'"Suivante.......SUITE": 
“"Frecedente....RETOUR";"Fin.........SOMM 
AIRE" 

2210 FRINTH#O,CHRE (GIE) : CHRE (R39) : CHRE (6 
8) ; 

2220 CALL &A110 

2270 IF FNca“:19 THEN €220 

2240 CALL %A110 

2290 IF FNca=bé THEN 22770 

2260 IF FNca=67 THEN 2170 

2270 IF FNcaz70 THEN CLOSEIN:i=1:FOR I=1 
TO 2E8it# (1) ="":NEXT: t#(S)en#inEs=" "ss RET 

URN 

2280 IF FNcaz72 THEN 2320 

2290 IF FNca=73 OR FNcaï=86 THEN CLOSEIN 
: GOSUR 1040:GOT0 1860 

2300 GOTO 2220 

2710 

2370 i=i+14 

2YIO IF irex THEN isj-14: FRINTHGS,CHRE (31 
D: CHRE (64) ; CHR£ (65) ; CHRE (27) s CHR# (93) 3 5 

F mf="message" THEN FRINT#8,'"Fremier "5m 

+: GOTO 2210 ELSE FRINT#8,'"Fremiere ";m#: 

GOTO 2210 

2340 IF t#t(i)="" THEN 22720 
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2350 GOTO 2170 

2760 

2370 i=i-14 

2380 IF i£i THEN i=1:FRINT#H6,CHR# (31): CH 

RE (64) : CHR (65) ; CHRE (27); CHRE(9I) SIT m# 

"message" THEN FRINT#8,'"Dernier “"s;m#:60 

TO 2210 ELSE FRINT#8,'"Derniere "sm#: GOTO 
2210 

2390 IF t$f(i)="" THEN 2370 

2400 GOTO 23170 

2410 

2420 IF t#(i)="" AND i<225 THEN is=i+14:6 

OTO 7470 ELSE IF t#(i)="" AND i>224 THEN 
i=i:GOTO 2420 

2430 GOTO 2170 


2440 

2450 ‘----LECTURE MESSAGE OU ANNONCE--- 
DAGO messes SUR LE CFC == 
2470 ‘ 


2480 MODE © 
2490 LOCATE 27,12:FRINT'"'Sortir du progra 
mme  (S)'":LOCATE 27,14: FRINT'Editer un f 
ichier (E)":LOCATE 27,16: FRINT'"'Retour 
en veille (R)":GOSUE 2980 
IF r$="S" THEN END 
510 IF r$t="R" THEN CLS:GOTO 160 
2520 IF R#="P" THEN 3050 
2530 MODE 1:FRINT CHR#(7): FRINT'"'Edition 
(Message ou (A)nnonce ?'":GOSUR 2980 
2540 IF r#="M" THEN Mf=''message" ELSE IF 
r$="A" THEN méz'"'annonce" ELSE GOTO 2440 
2550 FRINT"'(E)cran ou (I)mprimante ?7":60 
SUB 2980 
2560 CLS:IF r$="E" THEN FRINT "Edition " 
smÉés"s a l'ecran":GO0OT0 2570 ELSE IF r£=" 
I" THEN FRINT'Edition imprimante":G60T0 3 
140:ELSE GOTOQ 25350 
= OFENIN'tot'"+LEFTS(m£,3)s: INFUT4#H9,x 
580 IF x=1 THEN CLOSEIN:CLS:FRINT'"'Fas d 
sm: FOR i=i TO ZO0O:NEXT:GOTO 2440 
2590 FOR iz=i TO x: INFUT#9,t#(i):NEXT 
2600 i=x-14 
2610 CLS:FRINT:PRINT CHR#£(24);m#;" de :" 
TE Ci): STRINGE (40-(C12+LENCtSH(1)))," MSC 
HR£ (24) 
2620 MOVE 0,360:DRAW 640,760 
2670 FOR j=i+1 TO i+1Z%:FRINT t#(j):NEXT 
264 MOVE 0Q,140:DRAW 440,140 
2650 LOCATE 1,20:FRINT"(S)uivant, (Firece 
dent , (E)ffacement, (F)in" 
2660 GOSUE 2980 
2670 IF r#="F" THEN GOSUR 
2680 IF K#="S" THEN 2720 
2690 IF R#$="F" THEN 2770 
2700 IF K$="E" THEN 2820 
2710 GOTO 2660 
2720 
2750 i=i+14 
2740 IF iï=x THEN i=j-14:LOCATE 1,1:1IF m 
$f="message" THEN FRINT CHR#(24);"Fremier 
“smé: CHRE£ (24) : GOTO 2660 ELSE FRINT CHR 
(24); '"Fremiere “;m#f; CHR# (24): GOTO 2660 
2750 IF t#(i)=z"" THEN 2730 
2760 GOTO 2610 
2770 


5010: GOTO0 7440 


(ue me one me eme ce mie voie mn sine me eme me moe ct ce me cie do mn et voue cas ee men con cet 


2780 i=i-14 


2790 IF i£1 THEN i=1i:LOCATE 1,1:1F m$="m 
essage" THEN PRINT: CHR (24) s "Dernier "sm 
+: CHR# (24) : GOTO 2660 ELSE PRINT CHR#(24) 
; "Derniere “"sm#; CHRE (24) : GOTO 2660 

2800 IF t#(i)="" THEN 2780 

2810 GOTO 2610 

2820 
2850 PRINT CHR# (7) 

2840 IF Mf="message" THEN LOCATE 8,22:FR 
INT CHR#(24)3"Ce "sm#fs" va etre efface" 
28950 IF MF="annonce" THEN LOCATE 6,22:FR 
INT CHR# (24): "Cette "sms" va etre effac 
ae" 

2860 FRINT CHR (24) 

2870 LOCATE 12%,24:FRINT'"'Confirmation (0/ 
N)" 

2880 GOSUR 2980 
2890 IF R#&="0" 
2900 IF R£=!"N" 
2910 GOTO 2880 
2920 IF J=X THEN X=J-14 

2930 FOR Q=I TO J-1:T#(Q)=""I:NEXT:qi=qi+ 
1 
2940 


THEN 2920 
THEN 2610 


IF q=ié OK x=1i THEN CLS: FRINT CHR£#( 
7):LOCATE 12,1Z2:FRINT CHR#(24) "Le fichi 
er est vide":CHR#(24):FOR i=i TO 7OO00:NE 
XTisr#="Ft: GOTO 2670 
2950 LOCATE 6,22: FRINT STRINGE#(29," "il 
OCATE 12,24:FRINT STRING#(19," "):LOCATE 
1S,2S:FRINT CHR (24) sm#s" efface"sslF m 
f='"annonce" THEN FKRINT'e'"s 


2960 FRINT CHRE£(24) 
2970 GOTO 2660 
2980 
2990 r£szINEEV#s:s REZ" 
R# (INÉEYÆ) : WEND 

5000 RETURN 

% 1€ 


WHILE ré="":r#euPPE 


3020 CLOSEIN:IF qi=o THEN Z120 
“030 


ii 
3040 IF tf(i)="" THEN pt=i ELSE 7070 
2050 IF t#(pt)="" THEN ptept+14i:lF pt:x 
THEN 3090 ELSE GOTO 53050 


2060 FOR jspt TO pt+i3it#(i)=et#(i)it#(j) 


sms iæi+isNEXT:izi-14 
5070 i=i+14 
3080 IF iszx THEN 2040 


2090 x=j 

3100 LOCATE 11,24:FRINT CHR#(Z24)3;" SAUVE 

GARDE EN COURS "3 CHR£ (24) : OFENOUT "tot "+Ll 

EFTE(ME,Z3):WRITE #9,x:FOR i=1 TO #:WRITE 
#9,t#(1):NEXT:CLOSEOUT 

3110 qi=0 

3120 FOR Is1 TO 2ES:T#CI)E=""INEXT:ME="" 

3170 RETURN 

H140 OFTION LECTURE MES 

F1SO SUR IMPRIMANTE -------— 

3160 FRINT:FRINT'Arretez l'ordinateur et 
le minitel ,deconnectez le cable minitel 
spuis connectez l'imprimante ,remettre 1 

e tout en marche et run ‘IMF'"':END 

3170 ‘---ARRET D'URGENCE SI FLANTAGE--- 
3180 PRINTHS,CHRE (27) : CHR£ (57) ; CHR£ (103) 
3190 END 


10 RME EINENISS ENS SNS UNE DS DU MSN NS IS ON Mn ON MS EN NDS DS AU EN SNS 


20 FROGRAMME D'IMFRESSION 
Û) ‘amas DS NS us de SN DE RS NS DS DS SN RS ID SUIS SSID NES ITU 
40 DEFINT a-xz 
30 DIM t#(279) 
680 MODE 2 
70 LOCATE 27,12:FRINT'"'Sortir du programm 
e  (S)":LOCATE 27,14:FRINT'Editer un fic 
hier (E)":GOSUER 440 
80 IF r#="S" THEN END 
90 MODE 1:FRINT CHR£E(7):FRINT'Edition (M 
'essage où (A)nnonce ?":GOSUR 440 
100 IF r$fs"M" THEN Mf='message" ELSE IF 
r$="A" THEN m$f="annonce" ELSE GOTO 10 
110 OFENIN'"tot''+LEFTS(mE,5) 2 INFUTH#9,%x 
120 IF xe1l THEN CLOSEIN: CLS: FRINT'Fas d' 
Mem#:FOR ii TO ZOO0INEXT: GOTO 10 
150 FOR izi TO x: INFUTH9,t# C1): NEXT 
140 i=x-14 
150 CLS:FRINT:FRINT CHR (24)sm#s" de :": 
TE): STRINGE(40- CIR+LENCES# (1)))," "ss CH 
FC (24) 
160 MOVE 0,%60:DRAW 640,2%60 
170 FOR jæzi+1 TO i+13: PRINT €#(Cj):NEXT 
180 MOVE 0,140: DRAW 640,140 
190 LOCATE 1,20: FRINT"(S)uivant, (F)reced 
ent, (I)mpression, (Flin" 
200 GOSUE 440 
210 IF r#="F" THEN CLOSEIN: FOR 
LHC) E"MENEXT: GOTO 60 


izi TO x: 


220 IF R#="S" THEN 260 
230 IF R$="F" THEN 310 
240 IF K#="I" THEN 5360 


290 GOTO 200 


DO een ae me ne ame on ee ne 
270 i=i+14 

280 IF isex THEN izj-14iLOCATE 1,151IF m# 
='message" THEN FRINT CHK# (24): "Fremier 
Mimi: CHRE (24) : GOTO 200 ELSE FRINT CHRE(E 
4); "Fremiere "sm#s CHR# (24) :GOTO Z00 

290 IF t#(i)="" THEN 270 

3200 GOTO 150 

510 


320 


i=i-14 

SEO IF iii THEN iz1:LOCATE 1,1i:1F m#$='"me 
ssage" THEN FRINT:;CHRE# (24): "Dernier "sm# 
:CHR# (24): GOTO 200 ELSE FRINT CHR#(£4):;" 
Derniere "sm#s CHR# (24) : GOTO 200 


F40 IF t#(i)= su THEN 270 

250 GOTO 150 

HOQ immense mme eee ee me me nee en ee anne 

DS FRINTHS,CHRE (27) +CHR£# (64) :; STRING (80 
sit ) 


+80 FRINT#G,CHR#(14)5m#;" de :" 
RING (40= (12+LENCE#(1)))," 4 
590 FOR jsi+i TO i+15 

400 IF t#fCj)ir"" THEN FRINT#8,t#0(j) 

410 NEXT j 

420 FRINTHB,STRINGE# (80 ,"-") 

4:0 GOTO 200 

A4 ee mm em 

450 FrÉSINEEVS#: RESUME WHILE rés "ter F=UFFER 
Æ CINÉEY#) : WEND 

460 RETURN 
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“10 V'Amskad 
Editeur +Copieur+Exploreur Pau La aa. de \ Ans \ 


100*+ Langage Machine : Lou (3 deu 
Fenêtres & Menus Déroulants ex ŒuX qe var 
Un Editeur secteur unique qui vous 


TEU permet de visualiser et de modifier 
L”’ ED Le contenu de toute disquette, 


qu'elle soit protégée ou non. 


AR SR ES 
e 
1 


Quatre modes d'édition combinant Ascii, hexa, décimal, octal, binaire. 


Hdeete 


Des capacités exceptionnelles que vous pouvez exploiter immédiatement : 
e Désassemblage direct des programmes en Langage Machine 
e Listage automatique des programmes Basic 
e Les outils de bureau : ciseaux, colle, calculatrice mathématique 


EEE AR; 


à Sec 
BE 
æ 
æ 
æ 
ei 
# 
% 
#% 
# 
% 
# 
# 
% 


Dei 2e 22 tait > CU — D 


je Toutes les possibilités à La portée du débutant comme de l'expert : 
SE a rss e Récupérer une disquette endomagée ou un programme effacé 
2 : e Explorer un directory, Le reparer, Le modifier 


e Localiser des fichiers, Les cacher, les visualiser, les modifier 


Enfin la copie de sauvegarde pour tou vos 


CcOPIEUR disquettes (et cassettes) protégées int pas. 
LE Comme l'Editeur, il reconnait 99 pistes, toutes 


Les densites d'écriture, les pistes déformatées, Les 
secteurs non standard, effacés ou de taille anormale. 


Des performances inédites à votre service : 
e Réparation automatique des secteurs endomagés 
e Gestion automatique des extensions mémoire 


e Une fonction catalogue qui permet de copier des 
fichiers séparément sur cassette ou disquette. 


Voyage au centre de la disquette... Ou 

REUR L'Exploreur de Discology fournit toutes NENREERe 

9 EXPLO Les informations sur la disquette : si 
L Formatage, densité d'écriture, caractéristiques des 


secteurs, secteurs "plantés", plan d'occcupation des 
fichiers sur la disquette. 


Un outil passionnant pour découvrir tous Les 
secrets de vos disquettes et du controleur disque. 


Pour tous les ''cracks'!' de l'Amstrad et ceux qui 
veulent Le devenir. 


Discology est disponible sur disquette pour Amstrad CPC chez tous les très bons revendeurs. Vous pouvez aussi Le commander 
directement sans frais de port supplémentaires à : MERIDIEN Informatique - 11, rue Léandri - 83100 Toulon 

e Master Save est toujours disponible au prix de 190 F. IL reprend les caractéristiques du Copieur de Disquette de Discology 
e Si vous désirez recevoir Discology et que vous possédez déja Master Save, vous ne payez que la différence. 


O JE DESIRE RECEVOIR DISCOLOGY AU PRIX DE 350 F 
© JE DESIRE RECEVOIR MASTER SAVE AU PRIX DE 190 F 
O JE POSSEDE DEJA MASTER SAVE ET JE DESIRE RECEVOIR DISCOLOGY. JE JOINS MA DISQUETTE MASTER SAVE ET JE NE PAYE QUE 160 F 


MON REGLEMENT : © CHEQUE QUE JE JOINS (LE PORT EST GRATUIT) © CONTRE REMBOURSEMENT (J'AJOUTE 25 F DE FRAIS DE PORT) 


NOM : PRENOM : 
ADRESSE : 
CODE POSTAL : VILLE : TEL (facultatif) : 


A retourner à : MERIDIEN Informatique - 11, rue Léandri - 83100 Toulon 


Poker se joue seul contre l'ordinateur. 
Chacun dispose du même capital initial 
(soit 250, 500 ou 1000 $). À chaque 
tour, 52 cartes sont battues et dix dis- 
tribuées (alternativement une par une en 
commençant par le perdant précédent). 
Les joueurs disposent donc chacun de 5 
cartes parmi lesquelles ils ne vont gar- 
der que 5 à aucune carte. Après cette 
éjection, de nouvelles cartes sont don- 
nées pour compléter les séries à 5 car- 
tes. Pour sélectionner les cartes à jeter, 
le joueur se sert des flèches ‘‘droite’’ et 
‘’gauche'’ et de la touche ‘copy 
(retourne la carte). Quand ce choix est 
effectué, le joueur appuie sur ‘‘enter’’ et 
d'autres cartes lui sont fournies. ll détient 
maintenant sa combinaison de cartes 
finale. A partir de ce moment, les enchè- 
res peuvent débuter. Pour cela, le joueur 
utilise les touches du pavé numérique : 
3 = abandon, 6 = pour voir (égalisation 
des mises et retournement des cartes), 
9 = surenchère. Les touches 3 et 6 met- 
tent les mises à leur juste valeur auto- 
matiquement et désignent le vainqueur. 
Si le joueur sélectionne la ‘‘’surenchère'’ 
(9), il lui faut alors donner le montant de 
celle-ci en appuyant sur les touches 
1 = 1$,4 = 5$, 7 = 10$, puis sur la 
touche ‘’enter’” pour valider cette action. 
Si cette surenchère est trop faible (mon- 
tant de la mise inférieur ou égal à celui 
de l'adversaire), cette erreur est annon- 
cée et le joueur doit augmenter son 
enchère. Si par contre elle est trop forte 
car dépassant son capital, le joueur doit 
recommencer avec une enchère plus 
faible. 

L'ordinateur fait de même jusqu'à ce que 
l'un des deux abandonne ou demande à 
voir les cartes. Après désignation du 
vainqueur et attribution des gains, si l’un 
des deux n'est pas ruiné, le jeu reprend 
pour un tour suivant. || est à remarquer 
que dans le cas d'un abandon de l'un ou 
de l’autre, l'ordinateur ne montre pas ses 
cartes (selon les règles du ‘‘Poker’') ; 
mais, si le joueur veut essayer de percer 
le secret de sa tactique de jeu, il peut 
tout de même les voir en appuyant sur 
la touche ‘‘Vv”" (s'il appuie sur une autre 
touche, le’ + est effacé et un nouveau 
tour commence). 

Le joueur ne peut demander à voir les 
cartes (touche 6) que s'il est le premier 
à démarrer les enchères et que l’adver- 
saire n'a pas joué (le message ‘'misez 


POKER 


Stéphane MEUNIER 


Liste des principales variables : 


fonctions : FE : 


G1 
G2 
G3 


tableaux : ORD%(20) : 


J% (2,5) : 
C%(2,5) : 
va%(2,5) : 
Cj%(2,5) : 
NJ(2) : 
MT(2) : 
A$(10) : 
B$(13) : 
NB(2,13) : 
autres Variables : f : 
je : 


jo 


V: 
Cap (1 ou 2): 
a, al, a2: 


b1,b11, b21 


b2, b12, b22 : 


MI: 
MA : 


MIC : 
MAC : 


MA% et MI% : 
MNB : 

MTM : 

bx : 


montée progressive des enchères 


fixent le niveau maximum de la mise de l'ordinateur 
en fonction de son capital et de son jeu. 


ordre des 20 premières cartes du jeu. 
nombres entiers de 1 à 52. 
n° des cartes des 2 joueurs (1 à 52) 
couleur de ces cartes (1 à 4) 
valeur de ces cartes (1 à 4) 
cartes à jeter ou garder (0 à 1) 
nombre de cartes jetées 
enchères totales des joueurs 
valeur de la combinaison : de RIEN, PAIRE... 
hauteur de celle-ci : 2,3... AS : 
nombre de cartes de chaque valeur présente dans chaque jeu 
n° de fenêtre (1 à 5) 
nombre d'enchères successive 
: n° du joueur = 1 pour le joueur 
= 2 pour l'ordinateur 

vainqueur précédent (1 ou 2) 
capital des joueurs 
valeur de la combinaison (1 à 10) 
: hauteur de celle-ci (1 à 13) 
exemple : une paire de 10 

A$(a) BS$(b1) 
seconde hauteur (1 à 13) 
exemple : un full de 10 au 2 

A$(a) B$(b1) B$(b2) 
minimum des va% 
maximum des va% 


ou FLUSH 


minimum des C%X 
maximum des C% 


maxi et mini de va% ou C% avec 4 cartes parmi les 5. 

maxi des NB (1 à 13) 

hauteur maxi de l'enchère de l'ordinateur 

coefficient égal à 1, 2, 3,... 13 fonction de la hauteur de la plus 
forte carte. 


g11,g12, g13, g21, g22, x1, x2 : coefficients permettant le calcul de MTM 


PO : 
M1 ou M2 : 


orr : 
q4 : = 
c4 : 
1 ou O s'il y a ‘’couleur"” 
1 ou O s’il y a ‘‘quinte’’ ou non. 
, ‘trèfle’’, ‘’pique'’, 


COUL = 
QUINT 
COULS 


‘’carreau'’ 


alpha : 


bx : 

pc : 

C : 

V1$ à VZ$ : 
D1$ à D7$ : 
R1$ à R7$ : 
d$ : 
DOSS$ : 


pourcentage de capital donnant la valeur de MTM 
surenchère des joueurs (se remet à zéro à chaque surenchère) 
n° des cartes de remplacement après éjection. 

1 ou O teste la possibilité d'une quinte avec 4 cartes 

= 1 ou O teste la possibilité d’une couleur avec 4 cartes 

ou non. 


cœur'" 

coefficient influant sur la fonction FE et donnant une montée 
de la surenchère plus ou moins raide. 

position de la flèche de sélection des cartes à jeter. 

n° d'encre 1 pour le rouge, 2 pour le noir (cartes) 

n° de caractères, pour sélectionner cœur, carreau, pique ou trèfle 
caractères graphiques du valet 

caractères graphiques de la dame 

caractères graphiques du roi 

caractère 10 

caractère graphique des cartes retournées. 


Les autres variables sont secondaires ou de comptage (boucles). 
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d'abord'’ s'affiche). De même, si la pre- 
mière enchère est inférieure à 2, elle ne 
peut être acceptée. 

Le mieux est bien sûr de jouer pour 
apprendre les multiples facettes de ce 
jeu, et n'oubliez pas le ‘‘bluff'’.… 
Naturellement, l'ordinateur ne triche 
jamais. Il n’y a jamais d'interférence 
entre les deux jeux (comparaison avant 
enchère ou choix précis des cartes de 
l'ordinateur). La chance et la tactique 
sont vos meilleurs atouts. 


Attention : 
pour obtenir t faire CTRL+K 


pour obtenir | faire CTRL+J 
pour obtenir — faire CTRL+H 
pour obtenir — faire CTRL+I 


Listing 1 


10 REM ##x FOLER #%% 

20 MODE © 

FO INE 1,8:INE 0,0 

40 FAFER O:BORDER O:FEN 1 

50 LOCATE 2,23:FRINT'"Stephane MEUNIER" 
60 LOCATE 2,25: FRINT"1985" 

70 LOCATE 1,1Z:FRINT'FOFER se charge..." 
80 FRINT" ü 


90 RUN "'FORERI" 


Listing 2 


10 REM #%%% PFOFERI #%% 

20 MODE 1:INE 1,0:INK 2,6:INE 0,8: HORDE 
R 9 

30 DEF FN FE(je)=3*x(je * alpha) 

40 DEF FN Gi(cap)=giix(i-(EXF(-cap/g12)) 
“*g17) /cap 

50 DEF FN G2(cap)=#g2ix(i+(EXF((-cap+584) 
/100)%0,8)/1200)-g22*cap 

60 DEF FN G3(b)=(X2-X1)#b/17+(13xX1-X2) / 
12 

70 DATA 20,2,18,4,20,4,22,4,20,6,18,9,20 
,7,22,9,18,11,20,11,22,11,18,17,20,13,2% 
,13,18,15,20,15,22,15 

80 DATA 2,19,2,25,3,19,3,20,3,21,2,22,5, 
23,5,24,3,25,4,19,4,22,4,75,8,21,8,22,8, 
25,11,21,11,22,11,27,17,19,17,25,14,19,1 
4,20,14,21,14,22,14,23,14,24,14,25,15,19 
,15,25,17,19,17,25,18,19,18,25,20,19,2%0, 
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25,21,19,21,20,21,21,21,22,21,23,21,24,2 
1,25,22,19 

90 DATA 22,22,22,25,23,19,25,21,2%,22,23 
.23,23,25,24,19,24,25:26019,26025327519s 
27,20,27 521627: 22027 238527124027 505 284 À 
9,28,22,28,25,3025 931925 

100 DATA RIEN,UNE FAIRE,DEUX FAIRES, BREL 
AN,QUINTE , COULEUR , FULL , CARRE , FLUSH , FLUSH 
ROYAL 

110 DATA 2,3,4,5,6,7,8,9,10,VALETS, DAMES 


120 ‘=RsseeseseneensonsenNSSENDENERSREEE 
120 GOSUB 55S0:CLS 

140 INK O,9:INK 1,6:INK 2,0:INÉ 3,26 

150 KEY 138,"mode 2:ink O,0sink 1,18:pen 
1:paper O:border OQ"+CHR£ (13) 

160 ENV 1:2,1,501%0 101563107620 i 
.22ENT 1,1,0,80 

170 ENV 2,1,0,20,15,-1,3:ENT 2,65,10,1 
180 ENV 3,1,0,70:ENT 3,7,-10,10 

190 DIM ORDZ(20),J2(2,5),c4(2,9) ,va4(2,s 
),ci2(2,5),4#(10) ,H#(13) ,NE(Z, 15) 

200 WINDOW #6,12,40,1,20:FAFER #6,0 

210 FOR i=i TO 10:READ A#(1):NEXT i: FOR 

isi TO 13:READ H#(i):NEXT i 

PPO ‘rss sseenRnDRNENESENESDEEITEEX 


730 GOSUR 990: ‘definition des caracteres 


240 GOSUR 810: ‘tableau 
250 GOSUR 900:GO0OSUR 940:'initialisation 


260 GOSUR 1800: ‘melange des cartes 

270 FOR f=i TO S:GOSUR 187O:NEXT #f: "char 
ge J%,c4,vax 

280 GOSUR 1950: jo=2:FOR f=1 TO S:GOSUR 1 
9HO:NEXT f:'dessin des cartes en haut 
290 GOSUR 1940: jo=1:FOR f=1i TO S:GOSUE 1 
97O0:NEXT f:'dessin des cartes en bas 

#00 ON V GOTO 310,320 

310 GOSUER 380:GOSUR 330:G6GO0OT0 420 

220 GOSUB 230:GO0OSUR 380:G0TO0 420 

530 jo=2: GOSUR 2550 

340 FEN ?:G60SUR 24203: ‘recherche des cart 
es a jeter par l'ordinateur 

#50 GOSUE 2420: 'ejection de ces cartes €e 
t remplacement 

260 IF NJ(2)=0 THEN LOCATE 17,1:FRINT'Je 
ne rejette rien” 

270 RETURN 

#80 jo=1:G6O0SUB 1940:GOSUR 2250: ‘lecture 
des cartes a jeter par le joueur (1) 

390 GOSUR 7420: 'ejection de ces cartes e 
t remplacement 

400 RETURN 

410 ‘ Semen mEEMEININ NCIS ENS SSII ESS NIMES 

420 jo=2:GOSUR 2550: a?=a:b?1=bl:b?2=b2:M 
12=M1:MAR=MA: GOTO 450 

450 i$=INEEY#:I1F if="" THEN 430 

440 RETURN 

450 IF cap(2)>=1000 THEN cap=1000 ELSE c 
ap=cap (2) 

460 ON az GOTO 470,480,500,500,570,590,$ 
50,600 ,600,640 

470 MTM=1:GO0OTO 660 

480 bx=b?1:g11=2000:g1R=110:g13=1.2:X1=F 


N Gi(cap):g11=4000:X2=FN G1i(cap) 

490 GOTO 650 

500 bx=b?1l:g11=15000:g12=520:g13=1.9:Xi1= 

FN Gi(cap):g11=25000: X2=FN G1(cap) 

510 IF a2=3 THEN X2=(X7+X1)/2 ELSE X1=(X 

Z2+X1)/2 

920 GOTO 650 

920 bx=bR1 

540 g21=75:qg22=0.037: XI1=FN G2(cap):qg21=8 

7.5:X2=FN G2(cap) 

990 IF a2=5 THEN X2=X1+(X2-X1)/3:GOT0 685 

(a) 

set IF a2=é6 THEN HM=XLe XI=xx+(X Tux) /Ts X 
ÆX2-(X2-xx)/3:GO0T0 650 

570 IF a2=7 THEN XI1=X2-(X2-X1)/3 

980 GOTO 650 

990 IF MIZ<:1 THEN bx=MA2-1 ELSE bx=13:6G 

OTO 540 

600 nt 

6410 g21=90:g22=0.026: XI1=FN G2(cap) 

620 ÎF a=8 THEN X2=(100+X1)/2 ELSE X2=10 

© 

6:0 GOTO 650 

640 bx=1Z:GOTO 610 

650 FO=FN GE (bx) : MTMECINT (cap (2) #F0/100) 


660 GOTO 4580: 
670 GOSUR 430 
680 IF cap(i)*cap(2)=0 THEN 740 
690 CLS #6:LOCATE 1,2%:FRINT" 
700 LOCATE 1,25:FRINT" 
710 FOR X=27 TO 25:LOCATE 25,X:PRINT" 
Ms: NEXT X 
720 LOCATE 1,6:FRINT" 
1,16: FRINT" 


‘encheres 


"+: LOCATE 
"ss: LOCATE 3,14:FRI 


NT" ". 
720 MTM= 0: G60TO 290 
740 CLS 


750 IF INÉHEY#ES UM THEN 750 

760 LOCATE 2,10: FRINT"Voulez-vous rejioue 
r ? (o/n): "::GOSUR 450 

770 FRINT if 

780 IF if='"o" OK if="0" THEN RUN 

790 END 

00 ‘'sssesesssssassesssessnsneEensmsmEEs 
810 FEN 2Z:LOCATE 1,22:FRINT'"Combinaison 
2: ":LOCATE 1,24: FRINT"Combinaison 1:" 
820 LOCATE 1,1:FRINT'"Capital 2'"::LOCATE 
T9: PRINT"Capital 1": 

820 LOCATE 8,2:PRINT'"'#":LOCATE 8,20:FRIN 
TE" 

840 FLOT 0,264,2:DRAUWR 168,0 

850 FLOT 0,232: DRAUR 168,0 

6960 FLOT 0,200: DRAWR 168,0 

870 LOCATE 1,8:FRINT'"'ENCHERES": 

6980 RETURN 

890 

900 FEN Z:FOKR jo=1i TO 2:FOR i=i TO S:cjx 
(j0,1)=1:NEXT i,jo:orr=0:q4=0:c4=0 

910 M1=O0:M2=O0: MT (1) 20: MT (2) =0: je=0 

920 RETURN 
. 9EFO 

Y40 FEN Z:LOCATE 1,10: FRINT" " 


:: LOCATE 1,12: 
950 TAG:MOVE -16,254:FPRINT MT (2) 3: MOVE 6 
4,254:FRINT M2: 


PRINT" "ps 


960 MOVE -16,222:FRINT MT(1):: MOVE 6 
4,222:PRINT Mi;:TAGOFF 
970 FEN 1:LOCATE 1,2:FRINT" "ss LOCA 


TE 1,2:FRINT cap(2):LOCATE 1,20: FRINT" 
"y: LOCATE 1,20: PRINT cap(il):FEN Z2RE 

TURN 

980 

990 ‘caracteres graphiques 

1000 SYMEOL 160,0,6,:1,255,127,403,65,31: 

‘VALET 

1010 SYMEOL 161,0,0,231,255,60,189,219,2 

Z1 

1020 SYMEOL 162,0,96,248,255, 

248 

1070 SYMEOL 16%5,16,16,235,16,19,235,21,19 

1040 SYMEOL 164,0,0,129,98,157,83,892,145 

1050 SYMEOL 165,8,8, 200,40, 200, 168, 168,2 

00 

1060 SYMEOL 166,16,16,16,16,8,8,8,8 

1070 SYMEOL 167,16,52,24,0,0,0,126,129 

1080 SYMEOL 168,68,68,8,8,16,16,16,16 

1090 SYMEOL RE EE 66,129 

110Q SYMBOL 170,126,0,60,157,126,0,1,254 

1110 SYMEOL 171,22,52,64, 128,0 ,192,56, 7 

1120 SYMEOL 172,3,4,87,168, 168, 171,214,1 


NEA NE nEn 
294,292,292 


1130 SYMBOL 172%,128,0,1,120,116,20,272,1 


1140 SYMEOL 174,76,60,27,26,60,26,26,60 
1150 SYMEOL 175,0,0,12B,96,17,2,2,2 
1160 SYMEOL 176,192,48,76,132,4,4,4,4 
1170 SYMEOL 177,72,40,76,20,20,20,23,0 
1180 SYMEOL 178B,26,26,60,%6,176,129,255, 


1190 SYMEOL 179,2,2,2,1,1,1,255,0 
1200 SYMEOL 180,4,4,4,4,4,4,252,0 
1210 SYMBOL 181,0,32,87,44,22,6%,20,31:" 
1220 SYMEOL 182,24,%6,153,176,0,255,153, 


1230 SYMBOL 187,0,132,74,52,4,252,40,248 
1240 SYMEOL 184,13,10,21,8,16,4%,21,2%9 
1250 SYMEOL 185,90,165,74,0,0,145,82,8% 
1260 SYMBOL 186,168,80,168,20,16,204,170 


1270 SYMEOL 187,19,40,24,40,88,3%6,92,170 
1780 SYMEOL 188,145,16,26,0,0,40,124,170 
1290 SYMEOL 189,202,20,10,21,10,21,10,21 
1300 SYMEOL 190,0,0,1,2,2%,5,2,5 

1710 SYMEOL 191,86,170,92,171,84,168,92, 
106 

1320 SYMEOL 192,124,56,0,0,129,126,0,0 
1330 SYMEOL 192,26,52,74,181,90,21,58,85 
1340 SYMEOL 194,0,0,0,0,128,64,160,160 
1350 SYMEOL 195,10,19,46,17,17,16,16,32 
1160 SYMBOL 196,173 129,198 
1270 SYMEOL 197,170,41,22,22,64,64,128,1 
28 

1:80 SYMEOL 198,80,40,16,16,48,80,144,14 
4 


RE TE 
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1390 SYMEOL 199,32,32,22,32,22,23,63,0 
1400 SYMEOL 200,72,32,144,126,122,194,25 
5,0 

1410 SYMBOL 201,129,70,40,16,0,0,255,0 
1420 SYMEOL 202,1,2,4,8,48,64,255,0 

1450 SYMEOL 204,16,16,16,16,16,16,240,0 
1440 SYMEOL 205,33,25,82,45,22,21,20,%1: 


1450 SYMBOL 207,%6,126,129,60,102,165,1S 
1460 SYMBOL 208,122,132,74,180,4,248,40, 
1470 SYMEOL 209,254,170,254,68,68,68,68, 


1480 SYMEOL 210,16,19,23%,16,19,23,21,19 
1490 SYMEOL 211,0,1,131,68,145,75,74,127 
1500 SYMEOL 212,8,200,40,8,200,168, 168,2 


1510 SYMEOL 213,68,124,40,40,40,124,40,4 


1520 SYMBOL 214,16,24,74,24,12,13,15,15 
1570 SYMEOL 215,8,44,24,0,126,259,231,12 


1540 SYMEOL ?16,8,74,24,74,48,176,740,74 


1550 SYMEOL ?717,40,56,40,56,40,56,40,40 
1560 SYMBOL 218,7,7,%1,2:0,25,224 


1570 SYMEOL 219,295,295,295,2955,126,0,25 
1580 SYMEOL 220,2274,2724,192,128,64,96,15 


1590 SYMEOL 221,47,40,40,40,60,66,60,66 
1600 SYMEOL 222,128,128,192,32,16,8,4,2 
1610 SYMBOL 225,1,1,5%,4,8,20,34,65 
1620 SYMEOL 224,224,274,4,4,4,4,4,4 
1670 SYMEOL 225,252,66,60,66,62,17,31,0 
1640 SYMAOL 230,1,0,0,0,0,0,255,0 
1650 SYMEOL 231,129,231,60,24,24,24,255, 


1660 SYMEOL 232,128,0,0,0,0,0,255 
1670 SYMEOL 233,132,132,1%2,132,1 


€ 
1680 SYMEROL 2354,59,105,237,41,41,41,118, 
O: ‘dix 
1690 SYMEOL 226,56,56,214,254,214,16,56, 
Os: ‘trefle 
1700 VIS=CHRE (160) +CHR#E (161) +CHR# (1862): V 
BÉE=CHRE (167) +CHRE (164) +CHRE (165) 
1710 VISE=CHRE (166) +CHR#E (167) +CHR# (168) :V 
AF=CHRE (169) +CHK#S (170) +CHR# (171) 
1720 VS#=CHRE (172) +CHR£ (175) : VO#=CHRE (17 
D) +CHR# (176): V7#F=CHRE# (179) +CHRE (180) 
1720 DIF=CHR# (181) +CHR$S (182) +CHR#& (183) :D 
2E=CHR£# (184) +CHR$ (185) +CHR£ (186) 
1740 DISF=CHRE (187) +CHR$ (1868) +CHR# (189) :D 
AF=CHRE (190) +CHRE (191) +CHR£E (192) +CHRE (19 
FH) +CHRE (194) : DSE=CHRE (195) +CHRE (196): D6$ 
SCHRS (197) +CHR#& (198) 
1790 D7#F=CHRE (199) +CHR£ (200) +CHRE (201) +C 
HRE (202) +CHR£# (204) 
1760 R1F=CHRE (205) +CHR£ (207) +CHRE (208): KR 
LHFSCHRE (209) +CHRE (210) +CHRE (211) +CHRE (21 
ZDIRIEFECHRE (217) +CHRE (214) +CHRE (215) +CHR 
F(216):RA4$F=CHRÉ (217) +CHRKE (2168) +CHR# (219) 
+CHR#& (220) 
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1770 RSFECHRE (221) +CHRE (222) : RéF=CHRE (2 
3) +CHR# (224) : R7#FECHRE (229) +CHRE (270) +CHR 
Æ (2351) +CHRE (232) +CHRE (2IT) s dESCHRE (2I4) à: 
DOS#=CHRE (206) +CHR£ (ZOO) +CHRE (207) +CHRE ( 


203) +CHRE (206) 
1780 RETURN 
1790 ‘ 
1800 FOR isi TO 20: ‘melange des cartes 
1810 RANDOMIZE TIME:ORDY%(i)=INT (RND*#*52+1 
) 

1820 FOR j=1i TO i-1 
18230 IF ORD2(j)=O0ORDY%(i) 
1840 NEXT j 

1850 SOUND 1,0,0,0,1,1,10:FOR pause=1i TO 
100: NEXT pause 

1860 NEXT i:FOR pauses=1i TO 1000:NEXT pau 
se: RETURN 

1870 ‘distribution.commence par le perda 
nt 

1880 IF V=Z THEN JX(1,f)=ORD2((f-1)#2+1) 
sJ2(2,f) =0ORDY (f#2) : GOTOD 1900 

1890 JZ(2,f)=0ORDA((f-1)#2+1):J%(1,f)=0RD 
A CF #2) 

1900 FOR jo=1i TO € 

1910 cA(jo,f)=CINT(JZ(jo,f)/13+0,42708): 

vaz(jo,f)=J(jo,f)-(c/(jio,f)-1)#17% 

1920 NEXT jo 

1920 RETURN 

1940 FAFER #1,3:FAFER #2,3:PAFER #3,3:FA 

FER #4,Z:FAFER #5,2%3:WINDOW #1,12,16,12,2 

O:WINDOW #2,18,22,12,20:WINDOW #5,24,28, 
12,20: WINDOW #4,50,34,12,20:WINDOW #5,36 
540,12,20:RETURN: ‘cartes en bas 

1950 FAFER #1,Z2:FAFER #2,3:FAFER #43,3:FA 

FER #4,23: PAPER #5,23:WINDOW #1,12,16,2,10 
:WINDOW #2,18,22,2,10: WINDOW #5,24,28,2, 
10: WINDOW #4,30,34,2,10: WINDOW #5,376,40, 
2,10: RETURN: ‘cartes en haut 

1960 CLS #f:PEN #f,1:LOCATE #f,1,1:PFRINT 
#$,CHR# (206) ; CHR# (206) ; CHR# (206) ; CHRE (2 
O6) : CHRF (206) ::FOR ii=? TO B:LOCATE #f,1 
Li: FRINTHS,DOS#::NEXT ii:LOCATE #f,1,9: 
FRINT #f,CHR# (206) ; CHR# (206) s CHR# (206) ; C 
HR# (206) ; CHR# (206) ; : RETURN 

1970 ON c(jo,f) GOTO 1980,1990,2000,201 

(e) 

1980 c=227:pe=1:G0OTO0O 2020 

1990 e=228:pesl:GOTO 2020 

2000 ce229:pez=2:60T0 5020 

2010 c=226:peaz? 

2020 CLS #f 

2070 h=vaZ(jo,f):FEN #f,pe 

2040 ON h GOSUR 2080,2090,2100,2110,2120 
12130,2140,2150,2160,2170,2180,2200,2220 
2050 RETURN 

2060 LOCATE #f,1,1:FRINT #f,CHRE#(Ch+48):L 
OCATE #f,1,9:FRINT #f,CHR£(h+48) : LOCATE 

HF,S, 1: PRINT #f,CHRE(h+48)::LOCATE #f,5, 
D:PFRINT #f,CHR#(h+48) ; : RETURN 

2070 LOCATE #f,1,1:FRINT #f,d#:LOCATE #kf 
1,9:FRINT #f,d#:LOCATE #f,5,1:FRINT #f, 

d#f::LOCATE #f,S5,9:PRINT #f,d#::RETURN 


RSR EIMESEMNIMNEIMNDICIMSNN DIM MN MSI INSOMNIES 


THEN 1810 


2080 LOCATE #f,3,5:FRINT #f,CHR#(c) : GOSU 
E 2060:RETURN 


090 LOCATE #f,3,2:PRINT #f, CHR£ (oc) :LOCA 
TE #f,Z,8:FRINT #f, CHR£ (ci : GOSUE 2060: RE 
TURN 
100 GOSUB 2080:GOSUE 2090:GOSUER 2060:RE 
TURN 
7110 LOCATE #f,2,2:FRINT #f,CHR# (co) : LOCA 
TE #f,4,2:PRINT #f, CHR (c):LOCATE #f,2,8 
: PRINT #f, CHR£ (c) : LOCATE #f,4,68:FRINT #f 
" CHR# (c) : GOSUE 2060: RETURN 
9170 GOSUR ?110:G0SUR 2080:GOSUR ZO60:RE 
TURN 
21:00 LOCATE #f,2,9:FRINT #f,CHR£# (oc) : LOCA 
TE #f,4,S5:FRINT #f,CHR# (CC) : GOSUR 2110:G0 
SUR 20460:RETURN 
2140 LOCATE #f,3,4:FRINT #f,CHR£&(c) : GOSU 
B 2170: GOSUR Se RETURN 
2150 LOCATE #f,3,4:PRINT #f,CHR#(c) : LOCA 
TE #f,35,6: PRINT. 4, CHR#& (oc) : GOSUR 21270:60 
SUR 2060:RETURN 
2160 GOSUR ?080:FOR ii=z2 TO 8 STEF 2:LOC 
ATE #f,2 ii: PRINT #f,CHR#(c):LOCATE #f,4 
Yi PRINT #f,CHR#(C)INEXT ii: GOSUR 2060: 
RETURN 
2170 LOCATE #f,5,3:FRINT #f,CHRE(C) :LOCA 
TE H#f,3,7:PFRINT #f,CHR#(C): FOR iiz2 TO 8 
STEF Z:LOCATE #f,2,1i1: PRINT #f,CHR#(C): 
LOCATE #f,4,i11:FRINT #f,CHR#(CG):NEXT ji: 
GOSUR 2070: RETURN 
2180 LOCATE Hf,1,1:FEN #f,pe:FRINT #f,"V 
MSCHRE (CDI LOCATE #f,4,9:FRINT #f,CHR£(c) 
s "Vas LOCATE H£,2,22PRINT #f,VIF:FEN #f, 
Z:LOCATE #f,2,4:PRINT #f,V2#: LOCATE #f,2 
SPRINT H#f,V3#:LOCATE #£,2,6:FRINT #f,V 
4€ 
2190 LOCATE #f,1,7:FRINT #f,VS5#: "avé: 
eee #f,2,68: FRINT #f, CHR (1775 "sV7 
:FEN #f,pe:LOCATE #f,2,7: FRINT #f,CHRE( 
os LOUE #f,1,8:FRINT #£ ,CHRE CC) 3: LO 
CATE #f,3,8:FRINT #f,CHR# (178) ; : RETURN 
2200 LOCATE #f,1,1:FEN #f,pe:FRINT #f,"D 
MSCHRE(C)ILOCATE #f,4,9:PRINT #f,CHR#(C) 
5 "D": :LOCATE H#f,2,Z%:PFRINT #f,D1#:FEN #f, 
S:LOCATE #f,2,4:FRINT #f,D2#:LOCATE #f,2 
SPRINT #f,DZ3#:LOCATE #f,1,6:FRINT #f,D 
AT; " 
2210 LOCATE #f,1,7:FRINT #f,D5#:" ":Déf: 
:LOCATE #f,1,8:FRINT #f,D7#::FEN #f,pe:Ll 
OCATE #f,3,7:PRINT #f, CHRE (CC) : : RETURN 
2220 LOCATE #f,1,1: FEN #f,pe: PRINT #f,"R 
“CHR (C) : LOCATE #f,4,9:FRINT #f,CHR#(c) 
s'R'ssLOCATE #f,1,3: PRINT #f, CHRE CC): R1E 
: PEN #f , 2: LOCATÉ #f,1,4: PRINT #f,R2#: LOC 
ATE #f,1,S5:FRINT #f,R3#:LOCATE #f, 1,6:FR 
INT BEI RAE 
2230 LOCATE #f,1,7:FPRINT #f,RS#s" "iRGF: 
LOCATE #f,1,B8:PFRINT #f,R7#;:FEN #f,pe:LO 
CATE #f,3,7:FRINT #f,CHR£ (CE) 3 : RETURN 
PPAO ‘ARS ESESSRERETENESLENDNEINEDNESSERSSES 
2250 ‘lecture des cartes a jeter par le 
joueur (1) 
2260 FEN Z:1lx=14: jo=i 
2270 LOCATE 1X,21:FRINT""" 
2280 GOSUR 450 
2290 IF INEHEY(8)=0 THEN 2340 
2500 IF INEHEY(1)=0 THEN 2760 


2310 IF INHEY(9)=0 THEN 2580 

2220 IF INKHEY(18)=0 OR INÉEY(6)=0 THEN 2 
410 

ZE:0 GOTO 2280 

2340 LOCATE 14,81: FRINT" "slxslx-6:IF Lx 
:14 THEN 1l1lx=14 

2350 GOTO 2270 

2360 LOCATE 1X,Z1:PRINT" "slx=lx+ésIF 1x 
>38 THEN 1x=:8 

2370 GOTO 2270 

2:80 f=(1x-8)/6 

2390 IF cjZ(jo,f)=i THEN GOSUR 1960:cj2( 
jo,f)=0:GOTO 2280 

2400 GOSUR 1970:cj2(j0,f)=1:GO0TO0 2280 
2410 LOCATE 1Kx,21:FRINT" ": RETURN 

2420 ‘determination des cartes a jeter 
2430 jo=2 

2440 ON a GOTO 2450,2980,3180,3260,3400, 

3400,7400,7260, 3400 ,3400 

2450 GOSUR 2510: ‘test d'une quinte avec 
4 cartes 

2460 GOSUR 2700: 
4 cartes 

2470 IF c4<#1 AND q4i 

2480 IF c4ii 

=0:GOTO 3400 

2490 GOSUR 2500:cj4(iji0,fc)=0:GO0OT0 3400 
2500 FOR f=1 TO S:cj2(jo,f)=1:NEXT f:RET 

URN 

2510 ‘test d'une quinte avec 4 cartes 
2520 MAZ(1)=MAX (va (jo,2) ,va(io,2) ,vax( 
j0,4),va2(jo,5)) 

2330 MIZ(1)=MIN(vVa% Cjo, 2) , va (jo, 5) , va% ( 
jo,4) ,va(jio,5)) 

2540 MA% (2) =MAX (va (jo, 1),vaz(jo,3) ,va( 
j0,4) ,va(io,5)) 

25950 MIX (2)=MIN(VaZ (jo, 1) 
j0,4) ,va(jo,5)) 

2960 MAX (3) =MAX (va (jo, 1),va(jo,2) ,vaz( 
jo,4) ,va(io,S5)) 

2970 MIX CH) =MIN(Va% (jo, 1),va(jo,z) ,vaz( 
io,4) ,va(io,s)) 

2580 MAZ (4)=MAX (vaZ(jo,1) ,vaz(jo,z 
jo,2:) ,vaZ(jio,s)) 

29970 MIX (4) =MIN(va% (jo, 1) ,va% (jo, 2) ,va%t 
j0,23),va2(io,s)) 

2600 MA% (5) =MAX (va (jo,1) 

jo,ï),vaz(ijo,4)) 

2610 MIZ(S)=MIN(vaZ(jo,1) ,vaz(jo,z),vaz( 

j0,23),vVa(io,4)) 

2620 FOR f=1 TO S:GOSUR Z63SO:NEXT f:GOTO 
2690 

2670 IF MIZ(f)=1 THEN 2660 

2640 IF MAZ(F)-MIZ(F)=7 OR MAX CF) -MIX (#) 

4 THEN 2680 


‘test d'une couleur avec 


+1 THEN 2860 
1 THEN GOSUBR 2500:cj2(io,fq) 


,vaztio,2),vat 


), var ( 


,.vaz(jo,2) ,vaz( 


2650 RETURN 


B660 svazval(jo,i)+va(jo,2)+vax(jo,3)+v 
a2(j0,4)+var(io,5)-va(jo,f) 

2670 IF svasr10 AND svatr11l AND svat1i? 
AND sva“:17 AND svai #34 AND sva“:25 AND 
gSvai:Té6 AND sva“»##7 THEN 2650 

2680 tastrads1: 0010 2850 

2690 RETURN 

2700 ‘test d'une couleur avec 4 cartes 
2710 MAZX(1)=MAX(cA(jio,2) ,c/4(jo,7) ,cA(io, 
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4),c/{jo,5)) 

2720 MIX(1)=MIN(CZ(jo,2) ,c4(jo,5) ,c2(jo, 
4),c2(j0:9)) 

2730 MAL(2)=MAX (cA(jo,1) ,c2(jo,3) ,cA(jo, 
4),c4(j0,5)) 

2740 MIX(S)=MIN(cCA(jo,1) ,cA(jo,ïr ,cA(jo, 
4),c2(j0,5)) 

2790 MAZX(3)=MAX (céijo,li) ,cA(jo,2) ,c/(jo, 
4),c4(j0,5)) 

2760 MIX(S)E=MIN(CA(jo,1) ,cAtjo,2) ,cA(io, 
4),c2(j0,5)) 

2770 MAX(4)=MAX (cA(jo,1),c4(jo,z) ,c4(jo, 
3),cA2(j0,5)) 

2780 MIX(4)=MIN(CA(jo,1) ,cA(jo,2) ,cA(ijo, 
3),c2(j0,9)) 

2790 MAZ(S)=MAX (cA(jo,1),c4(jo,2) ,cA(jo, 
3),c4(jo,4)) 

2800 MIX(S)=MIN(CA(jo,1),c/4(jo,2) ,c2(jo, 
3) ,c4(jo,4)) 

2810 FOR f=1i TO 5 

2820 IF MAX($F)=MIZ(f) THEN 2840 

2830 NEXT f:G0T0 2850 

2840 fo=f:c4si 

2850 RETURN 

2860 FOR fj=i TO 5 

2870 IF vaX(jo,fj)=1i THEN cjX(jo,fj)=1i:G 
OTO 2900 

2880 IF vaZ(jo,fj)=MA AND MI£1 THEN cj4 
(Cjo,fi)=1:GOTO 2900 

2890 cjX(jo,fj)=0 

2900 NEXT fj 

2910 IF RND£O.95 OR cap(2)+2#cap(1) THEN 
5400 

2920 nj=0:FOR fj=1 TO S:IF cjX(jo,fj)=l 
THEN 2960 

2930 IF vaZ(jo,fji):10 THEN 2960 

2940 nj=nj+l:IF njz3 THEN 2970 

2950 cjl(jo,fj)zi 

2960 NEXT +fj 

2970 GOTO 5400 

2980 ‘paires.rejet d'une où * cartes ou 

aucune (bluff) | 

2990 IF KND:0,95 THEN 3400 

2000 FOR fz1i TO 5 

2010 IF vaZ(jo,f)z1i THEN 3030 

2020 IF NR(jo,vaZ(io,f)-1)=2 THEN 3050 E 
LSE 37040 

2030 IF NRjo,vaz(jo,f)+12)=2 THEN 3050 


3040 NEXT f 

TOSO MAY (CF) =MA: MIX (#F)=MI 
3060 GOSUB 2630 

3070 GOSUR 2700 

3080 IF cap(2)+200<cap (1) 
3090 IF RND:0.4 THEN 3130 
3100 IF q4t>1l AND c4:1 THEN 3130 

3110 IF c4*:1 THEN GOSUR 2500:cj4(jo0,fq) 
0: GOTO 3400 . 

7170 GOSUR 2500:cj2(j0,fc)=0:G0OT0O 3400 
3130 FOR fjs1 TO 5 

3140 IF b1£513 AND vaZ(jo,fj)-1=b1 THEN 
cik(jo,fji)=1:GOTO 3170 

3150 IF bi=13 AND vaZ(jo,fiji)=1 THEN cj4( 
jo,fj)=1:GOT0 7170 

5160 cj2(jo,fiji)=0 


THEN 3170 
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3170 NEXT fi:GOTO0O Z400 

3180 ‘2 paires,i carte a jeter ou aucune 

3190 IF KND+0,95 THEN 53400 

3200 FOR fjzi TO 5 

3210 IF vaZ(jo,fj)=i THEN 3240 

32220 IF NR(Z,vaZ(jo,fj)-1)=1 THEN cj4(jo 

,13)=0 ELSE cjA(io,fi)=i 

3230 GOTO 5250 

32240 IF NR(2,vaZ(jo,fj)+12)=1 THEN cj2(ji 

0,fj)=0 ELSE ci%(io,fi)=1 

3250 NEXT fj:GOT0 5400 

3260 ‘carre ou brelan:i où 2? cartes jeta 
bles 

2270 FOR fjsi TO 5 

3280 IF vaZ(jo,fj)=1i THEN 533510 

3290 IF NR(2,vaZ(jo,.fi)-1)47% THEN cjZ(io 

55j)=0 ELSE cjX(jo,fj)=i 

3300 GOTO 3320 

310 IF NB(2,va(jo,fj)+12)2% THEN cj4()j 

0,fj)=0 ELSE cj2(jo,fj)=i 

3320 NEXT #fj 

3330 IF a2=8 THEN 3400 

3540 ‘brelan rejet de 1 ou ? cartes 

3350 IF RND*0.6 THEN 3400 

3360 FOR fj=i TO 5 

3370 IF cj(jo,fj)=1i THEN #390 

32380 ci%(jo,fj)=1i: GOTO 7400 

3390 NEXT +f)j 

3400 RETURN 

3410 

3420 


“ SSSR DEEE NM EN EU NS DS EN NS MN MS MS NS MS D I NS DIN DIS CON UN DES SI D DU OS cn 
‘eiection et remplacement des 
cartes choisies 

2420 NJ(1)=0:NJ (2) =0 

3440 FOR f=1 TO 5 

3450 IF cjA(io,f)=i YHEN 2520 

31460 orrsorr+l:J%(j0,f)=0RD%X(10+orr) 
3470 cACjo,f)=CINT(J4(jo,f)/15+0.42708): 
val(jo.,f)=J%(jo,f)-(cA(tjo,f)-1)%15 

2480 IF jo=1 THEN GOSUR 1970: NJ(1)=NJ (1) 
+1:G60T0 53520 

7490 NJ (2) =NJ (2) +1 

2500 IF NJ(2)>1 THEN LOCATE 17,1:FRINT'"J 
e rejette "{;NJ(2):" cartes.":GOTO 2520 
2910 IF NJ(2)=1 THEN LOCATE 17,1:FRINT"J 
e rejette une carte." 

FS20 NEXT + 

35350 RETURN 

940 ‘ensamaesemesamamsmnnmesemeEasmasme cenmmamenmenmens 
3550 ‘valeur de la combinaison 

2960 b1=0:b2=0:a=0: MA=O: MI=0: MAC=0: MIC=0 
: COUL=O: QUINT=0: MNE=O 

3570 FOR i=1i TO 13:NR(j0,i1)=0:NEXT i 
25680 MA=MAX (vaZ(jo,1) ,vaZ(io,2) ,va(io,z 
),var(jo,4) ,vaZ(jo,5)) 

2590 MISMIN(vaZ(jo,1) ,vaz(ijio,2) ,vaZ(io,z 
),vaz(jo,4) ,vaZ(jo,f)) 

3600 FOR izi TO 5 

2610 IF vaZ(jo,i)<#1 THEN NR(jo,vaz(jo,i 
)-1)=NH(jo,va(ijo,i)-1)+1:G0T0 36350 

32620 NE(jo,val(jo,i)+12)=NB(jo,vaz(jo,i) 
+12) +1 

3630 NEXT i 

2640 MNE=MAX (NE(jo,1) ,NE(jo,2) ,NB(jo,5), 
NE(jo,4) ,NE(jo,5) ,NE(jo,6) ,NE(io,7) ,NB(j 
0,8) ,NE(jo,9) ,NE(jo,10) ,NB(j0,11) ,NB(jo, 


12) ,NE(jo,12)) 

3650 IF MNR=1 THEN 5830: ‘tous differents 
3660 FOR i=i TO 1%3:IF NECjo,i)=MNE THEN 
3680 

“470 NEXT i 

2680 ON MNB-1 GOTO 3690,5710,3730 

3690 a=2: "paire 


5700  GOTO 3740 
4710 a=4: ‘brelan 
3720 GOTO 3740 
5720 awB: carre : 
3740 bizi 
3750 ON MNE-1 GOTO 35760,7760,7:940 
3760 FOR iz=i TO 17% 
3770 IF i=bi THEN 23790 
2780 IF NKH(jo,i)=2 THEN 2800 
790 NEXT i:GOTQO :940 
2800 IF az? THEN a=%:b2zi 
5810 IF b2*b1 THEN bb=bi:bi=b2:b2=bb: GOT 
0 3940 
3820 a=7:b?=i:G6G0T0 3940 
2830 ‘combinaison sans valeurs 
semblables 
7840 MAC=MAX (cA(jo,1),cZ/(jo,2) ,c2(jo,z), 
cl(jo,4) ,c4(jo,5)) 
3850 MIC=MIN(CA(jo,1) ,c4(jo,2) ,c2(jo,s), 
cZl(jo,4) ,cA(io,5)) 
2860 IF MAC=MIC THEN COUL=i:GOSUR 23950: ° 
couleur numero MAC 
#8970 IF MA-MI=4 THEN QUINT=1:b1=MA-1: ‘qu 
inte a bi ‘ 
2880 IF MA=17 AND MI=1 AND vaz(jo,li)+vax 
(j0,2)+va/(jio,:)+va(io,4)+va(io,5)=47 
THEN bi=13:QUINT=1: ‘'quinte a l'as 
2890 IF QUINT£:1 AND COUL<:1 THEN az1i:60 
TO 5940 
3900 IF QUINT£#1 THEN a=z6:GOTO :940 
3910 IF QUINT=1 AND COUL£51 THEN az5: GOT 
Q 5940 
2920 IF bii:17 THEN a=9:GO0OTO 2940: ‘flush 
a bi de MAC 
2970 a=10:"flush royal de MAC 
3940 KETURN 
2950 ON MAC GOTO 3960,7970,:980,7990 
2960 coul #t="carreau":GO0OTOQ 4000 
3970 coul ft="coeur":G0OT0 4000 
2980 coul#f="pique": GOTO 4000 
4990 coulf='"trefle" 
4000 RETURN 
4010 ‘affichage de la qualite 
de la combinaison 
4020 LOCATE 1,(27-2#)j0):FRINT Af(a): 
4070 ON a GOTO 4190,4040,4060,4040,4090, 
4150,4160,4040,4170,4180 
4040 IF bl£%13 THEN FRINT'" de ":H#(b1):6 
OTO 4190 
4050 PRINT" d''"':R#(b1):GOTO 4190 
4060 IF b1#%127 AND b2<:17 THEN FRINT' de 
"sB#(b1):" et de ":H#(b2):G0OT0 4190 
4070 IF b1=13 THEN FRINT" d''sH#(b1):" e 
t de ":R#(b2):G0OTO 4190 
4080 PRINT" de "sR#f(b1l):" et d'":H#(b?): 
GOTO 4190 
4090 IF bi£=9 THEN FRINT" au ":R#(b1):G0O 
TO 4190 


4100 ON bi-9 GOTO 4110,4120,4130,4140 

4110 PRINT" au VALET'":GO0TO 4190 

4120 PRINT" a la DAME'":GOTO 4190 

4170 PRINT" au ROI":G0OTO 4190 

4140 PRINT" a 1'AS":GO0T0 4190 

4150 FRINT" a "scoul#:GOTO 4190 

4160 FRINT" aux ":B#F(b1)3:" par les ":R#( 

b2):G0OTO0 4190 

4170 FRINT" de "scoult::GOTO 4100 

4180 FRINT" de ":scoulf::G0OTO0 4190 

4190 RETURN 

4200 ‘test du vainqueur 

4210 IF aiïa2 THEN 4520: 'le joueur (1) 
gagne 

4220 IF a2*ai THEN 4540: ‘1 ‘ordinateur 
gagne 

4250 ‘cas ou la combinaison est du 
meme type 

4240 ON a GOTO 4250,4290,4770,4290,4450, 

4250,4460,4250,44%0,4510 

4250 FOR n=i3 TO -1 STEF -1 

4260 IF NR(1,n)24%0 AND 'NR(2,n)=0 THEN 45 

20 

4270 IF NR(Z,n)<:0 AND NH(1,n)=0 THEN 45 

40 

4280 NEXT n:GOT0 4510 

4290 IF b11:b21 THEN 4520 

4300 IF b21*b11 THEN 4540 

47:10 FOR n=13 TO 1 STEF -1 

4320 IF NB(1,n):=2 AND NR(2,n)%=2 THEN 4 

360 

AIO IF NR(1,n)=1 AND NER(?,n)=1l THEN 436 

Q 

4740 IF NR(1,n)=1 AND NR(2,n)=0 THEN 452 

(a) 

4750 IF NR(1,n)=0 AND NR(Z,n)=1i THEN 454 

Q 

4360 NEXT n:GO0OTO 4510 

4570 ‘test double paire 

42:80 IF b11:b21 THEN 4520 

4:90 IF b21>b11 THEN 4540 

4400 IF b12:b227 THEN 4520 

4410 IF b22:b12 THEN 4540 

4420 GOTO 4310 

4470 IF MI1:MIZ THEN 4520 

4440 IF MI1ÈMIZ THEN 4540 

4450 GOTO 4510 

4460 IF b11:b21 THEN 4520 

4470 IF b?1%b11 THEN 4540 

4480 IF bD12*:b22 THEN 4520 

4490 IF b22:b12 THEN 4540 

4500 GOTO 4510 

4510 LOCATE 34,23: FRINT"'EGALITE'";:cap(i) 

=cap (1)+MT(1):cap(2)=cap(2)+MT(2): GOTO 4 

360 

4520 LOCATE 26,24: FRINT'"'VOUS GAGNEZ": V=1 

:cap (1)=cap(i)+MT(1)+MT(2) 

4530 SOUND 1,100,0,12,3,3:GOT0 4560 

4540 LOCATE 51,22: PRINT"'JE GAGNE": 

p(2)=cap(2)+MT(1)+MT(2) 

4550 SOUND 1,1000,60,15,2,2 

4560 KETURN 

4570 

4580 FEN 3:ies0: ENCHERES 

4590 1F V=1i THEN jo=2 ELSE jo=i 


=2:ca 
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46800 IF jio=zi THEN jo? ELSE jo=1 

4619 IF jo=2 THEN LOCATE 3,14:FRINT" 
"s::GO0T0 5140: ‘encheres de 1 ‘ordinateur 

4620 LOCATE 3,14:FEN 1:FRINT'"'A VOUS'"::FE 


4670 LOCATE 1,16:FRINT" 

4644 GOSUER 450 

4650 IF INKHEY(5)=0 THEN 5020: 
4660 IF INFEY(4)=0 THEN 4860: 
4670 IF INHEY(3)=0 THEN 4690: 
4680 GOTO 4640 

4699 LOCATE 1,16: FRINT'"Surenchere': 


‘abandon 
‘pour voir 
‘surenchere 


:M1=0 


4700 IF cap(1):2 OK MT(2)-MT(1)+1:cap (1) 
THEN LOCATE 1,17:FRINT'"impossible";:G0S 

UE 4780: LOCATE 1,17: FRINT" “as G 

OTO 4630 

4710 GOSUR 430 

4720 IF INKHEY(15)=0 THEN Mi=zMi+i: MT CL) = 
T(1)+1:GO0T0 4760 

4750 IF INHEY(Z20)=0 THEN MI1=zMi+S5:MT(1)=M 
T(1)+5:GO0T0 4760 

4740 IF INÉHEY(10)=0 THEN MI1=M1+10:MT(1)= 
MT(1)+10:GO0OTQ0 4760 

4750 IF INKHEY(18)æ0 OR INKEY(6)æ=0 THEN 4 
790 

4760 FEN 2:TAG:MOVE -16,222:FRINT MT(1): 
MOVE 64,222: FRINT Mis: TAGOFF:FEN Z 

4770 GOTO 4710 

4780 FOR pause=1i TO 400: NEXT pause:RETUR 

N 

4790 IF cap(i)-Mi>=0 THEN 4800 ELSE 4820 
48900 IF MT(1)=1 AND MT(2)=0 THEN 48530 

4810 IF MT(1)5MT(2) THEN 4840 ELSE 4850 
4820 LOCATE 1,17:FRINT'"trop forte"s:6G0OSU 
E 4780:LOCATE 1,17:FRINT" "ssMT 
(1)=MT(1)-Mi: Mi=0: GOSUR 940: GOTO 4710 
48:30 LOCATE 1,17:FRINT'"trop faible"::608S 
UE 4780: LOCATE 1,17:FRINT" "es 
MT(1)=MT(1)-Mi: Mi=0: GOSUR 940:GOT0 4710 


48406 cap (1)=cap(1)-Mi:LOCATE 1,20:FEN 1: 

FRINT cap(l);:FEN 3 

4850 GOTO 4400 

4860 IF V=2 THEN 4880 

4870 IF MT(1)=0 THEN LOCATE 3,16:FRINT'M 
ISEZ"::LOCATE 1,17:FRINT'"D'ABORD":: GOSUR 
4780:LOCATE 1,17:FRINT" “ss: GOT 

O0 4670 : 

4880 LOCATE 1,16: FRINT'Four voir "::MIizMT 
(2)-MT (1) 

4890 IF cap(i):=Mi THEN 49:%0 

4900 Mi=zcap(l)s:scap(i)=0:MT(1)=MT(1)+MI1 

4910 MT(2)=MT(2) -M2: cap (2) =scap (2) +M2 
4920 MR2=MT(1)-MT(2):MT(2)=MT (1) :cap(2)=c 
ap(2)-M2:GOTO 4950 

49:20 cap(1)=cap(1)-Mi 

4940 MT(C1)=MT(1)+MI1 

4950 GOSUE 940 

4960 jo=1:GOSUR 355S0:al=atb1i=bi:b1?2=b2: 
MI1=MI:GOSUER 4010 

4970 jo=£:a=a2:b1=b?21:b2=b22:MI=MIZR 
4980 GOSUER 1950:FOR f=1 TO S:GOSUR 1970: 
NEXT f:GOSUR 4010 

4990 GOSUR 4200 
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:LOCA 


9000 FEN 1:LOCATE 1,2:PRINT cap({(2): 
TE 1,20: FRINT cap{(l)::FEN 3 
9010 FEN 2:G0T0 670: "battre les cartes e 
t rejouer 
3020 LOCATE 1,16: FRINT'"Abandon'";:SOUND 1 
,1000,60,15,2,2 
9030 IF MT(1)2%;0 THEN 5050 
9040 MT(1)=1:Mi=l:cap(l)=cap(i)-1 
9050 cap(2)=cap (2) +MT(Z)+MT(1) 
9060 V=2:GOSUR 940:GOSUER 450 
9070 IF if$5#"V" AND ifi:"v" THEN 680 
9080 jo=2:a=a2:bl=221:b2=b22:MI=MIZ 
5090 GOSUR 1950:FOR f=1 TO S:GOSUR 1970: 
NEXT f:GOSUR 4010 
53100 GOSUR 430 
9110 GOTO 680 
S120 ‘ssssssssssssmssseosesesesesesss 
2130 ‘encheres de 1 ‘ordinateur 
9140 M2=0: je=je+l:LOCATE 1,6:PRINT" 
9150 IF a?=1i AND V=2 AND RND#O.8 THEN 53 
60 
9160 IF a2=1 AND V=2 AND RND:=0.8 THEN M 
TMECINT (cap (2) #(0,1+(0, 1#RND) )):GOTO 528 
o 
3170 IF a£=1i AND MT(1)=1 THEN 5420 
9180 IF a2=1i THEN 5360 
9190 IF cap(2)#=10 AND NJ(1): 
Z AND MT(1)£:0 THEN 5420 
9200 IF cap(2)£=5 AND NJ(1): 
AND MT(1)<:0 THEN 5420 
3210 IF MT(1)»=0.8*xMTM AND MT(1)<eMTMx1,. 
25 THEN 5420 
J220 IF MT(1)<MTM THEN 5280 
9230 IF NJ(1):0 THEN 5260 
240 IF a2:3 THEN 5420 
J290 IF cap(2) :=5xMT(2) 
420 
3260 IF a2:2 THEN 5420 
9270 IF MT(2)£#=0,0S+cap (2) 
E 5420 
9280 MEMEMT(1)-MT(Z) +1 
9290 alpha=1.S+RND:MS=CINT(FN FE(ie)) 
9300 IF je=i THEN MRÆCINT(S*RND) 
9210 IF M2EM2M THEN M2=M2M 
SI20 IF MT(2)+M251.1#xMTM THEN 54270 
9220 IF MT(1)=0 AND M2£2 THEN M2=2 
340 LOCATE 1,6:FRINT'"Surenchere"; 
92950 cap(2)= =cap (2) -M2: MT (2) =MT (2) +M2: G60S 
UE 940:GO0OT0 4600 
32360 LOCATE 1,6:FRINT" 
1,6: FRINT'"Abandon’“: 
270 IF MT(2)£:0 THEN 5:90 
5380 MT(2)=1:M2=1:cap(2)=cap(z)-1 
9290 cap(1)=cap(1)+MT(1)+MT(2): Vel: 
1,100,0,12,5,5 
9400 GUSUE 940: GOSUE 430 
410 GOTO 5070 
9420 IF Veil OK MT(2)250 THEN 5450 
9430 IF cap(2):=2 THEN M2z2:G0T0 5740 
440 GOTO 5360 
3450 LOCATE 1,6:FRINT" ‘ 
TE 1,6: FRINT'"'Four voir": 
460 ME=MT(1)-MT(2) 
9470 IF cap(2):=M2 THEN 5510 


+=4 AND a2?= 


*Q AND a2=2 


THEN 5560 ELSE S 


THEN 5360 ELS 


“:: LOCA 


SOUND 


: LOCA 


5480 M2zcap (2) :cap(2)=0:MT (C2) =MT (2) +M2 
5490 MT(L)=MT(1)-Miscap(1)=cap (1) +M1 
59500 MI=MT(2)-MT(1):MT(1)=MT(2)s:cap(i)=c 
ap(1)-Mi: GOTO 5530 

5510 cap (2) =cap (2) -M2 

5520 MT(2)=MT (2) +M2 
5530 GOSUE 940:G60T0 4980 

5540 RMS ONU NS DS NS NS NS DU MMS DS M SMS MN MS NS MS SU MS NS DR NS DSL MENT NE 
5990 FEN 1:FAFER 0 
5560 SYMEQL AFTER 160 
5570 SYMEOL 160,64,90,103,101,101,103,90Q 
64: SYMEOL 161,2,214,182,214,1278,128,156 
,2:SYMEOL 162%,64,123%3,109,123,107,107,123 
,64: SYMEOL 165,2,250,86,122,86,86,118,2: 
SYMBOL 164,0,0,1,3,7,15,31,63:SYME0OL 165 
121,127,299, 2999 209 9 29 9 LOD y ed 
5580 SYMBOL 166,65,127,127,299,299,200,2 
99,299: SYMEOL 167,257,240,274, 192,1268,12 
8,0,0:SYMEOL 168,248,254,255,295,259,258 
.255 ,255: SYMBOL 169,0,0,128,192,224,240, 
248,252: SYMEOL 170 6,15,71%01s 1,0,0:SYM 
EOL 171,252,254,254,295, 295 /299, 299,255 
59590 SYMEOL 172,255,299,299,299,299127;, 
127,62: SYMEOL 175,0,0,128,128,192,224,24 
0,252: SYMBOL 174 65,31, 15,7,23,1,0,0:SYME 
OL 175,255,295,295,255,258,298, 127,21 
3600 SYMEOL 176,0,0,1,1,3,7, Ru 

177,255,255,255,255,295,254,2 4,292: SYM 
EOL 178,255,299,299, 295,255, 258, 294,248: 
SYMEOL 179,252,248,240,224,192,128,0,0 
5610 SYMROL 180,255,254,252.248,248,252, 
254,295 
5620 cif=CHRE (164) +CHRE (165) : CRF=CHRE (16 
b)+CHR£ (167) : dif=CHRS# (168) +CHR# (169): d2# 
mCHR# (170) +CHRE# (171) 

5630 el$f=CHRE (172) +CHRE (173) :e2F=CHRE (17 
4) +CHRE (175) : F1#=CHRE (176) +CHR# (177): F2 
&CHRE (178) +CHRE (179) 

5640 af=CHRE (160) +CHRE (161) :bFECHRE (162) 
+CHR# (163) 

5650 FOR i=1i TO 17:READ x,v:GOSUR GOZO:N 
EXT :i 

660 TAG 

5670 MOVE 317,374: PRINT" ":: MOVE 281,542 
sFRINT'EMS: MOVE SOS ,T42: FRINT as: 

93680 MOVE 345 342: FRINT'=s"s:: MOVE 313,310 
SPRINT |": : MOVE 281,262:FRINT"7"3: 

3690 MOVE 515,262: PRINT "8"; : MOVE 345,262 
:FRINT'"'O"::MOVE 281,730: FRINT'"'4"s: 

5700 MOVE 515,270: FRINT"'S":;:MOVE 345,230 
: FRINT'"'é":: MOVE 281,198:FRINT"1"3;: 

3710 MOVE 313,196: PRINT "2"; : MOVE 345,198 
PRINT "3"; : MOVE 281,166: FRINT"'O"z: 

5720 MOVE 317,166: PRINT". "3 : MOVE 277,166 
PRINT bfs: TAGOFF 

3730 FLOT 340,304: DRAWR 48,0:DRAWR 0,16 

9740 LOCATE 5,6:FRINT'"Deplacement 3; :LOCA 
TE S,7:FRINT'"a gauche": 

9790 FLOT 400,304: DRAWK -48,0:DRAUWR 0,16 
9760 LOCATE 26,6:FRINT'"Deplacement ": : LOC 
ATE 26,7:FRINT'a droite": 

2770 FLOT 334,250: DRAUR 18,18: DRAWK 48,0 
5780 LOCATE 26,2: FRINT'Effacement bunssL 
OCATE 26,23: FRINT'affichage de la": :LOCAT 
E 26,4: FRINT'carte choisie": 


5790 FOR i=197 TO 256 STEF Z3Z:FLOT 240,i 
:DRAUWR 32,0: FPLOT 266,i:DRAWR ZZ,O:NEXT i 

5800 FLOT Z66,160:DRAUR 32,0:LOCATE 12,9 
sFRINT"10 #"s:LOCATE 13, 112FRINT'S #'sil 

OCATE 17,1Z:FRINT"1 #":s 

5810 LOCATE 26,9:FRINT"Surenchere":3:LOCA 

TE 246,11: PRINT "Four voir'"3:LOCATE %6,13: 

PRINT "Abandon"; : LOCATE 26, 1S:FRINT" Valid 

ation de";:LOCATE 26,16: FRINT"1a mise ou 
des";::LOCATE 26,17:PRINT'cartes a jeter 

5620 FEN 2:FOR i=1 TO 12:READ x, y:LOCATE 
H4VIFRINT CHR#(147) 5: NEXT 

5820 LOCATE S,19:FRINT difs:LOCATE 5,20: 

FRINT d?e#fs:LOCATE S,Z1:FRINT f1#3:: LOCATE 
S22: PRINT $2F; 

5840 LOCATE 8,19:FRINT cif::LOCATE 8,20: 

FRINT c2#s: 

5850 FOR i=1i TO 3:READ 
INT CHR#(1435);:NEXT i 

5860 LOCATE 8,24:FRINT el#:;:LOCATE 68,25: 

FRINT e?#::LOCATE 10,19:FRINT di#s;:LOCAT 

E 10,20: FRINT d2f: 

5870 FOR i=i TO Z3:READ x ,y:LOCATE K,yviFR 
INT CHR#(143);:NEXT i 

5980 LOCATE 10,Z24:FRINT f1#::LOCATE 10,2% 

DIFRINT f2#fs: 

5890 FOR i=1 TO 10:READ x ,y:LOCATE x,ysF 

RINT CHR#£(14Z) 3: NEXT i 

5900 LOCATE 15,21:FRINT CHR£(214) ; : LOCAT 

E 15,22:PRINT CHR# (180): :LOCATE 15,235: FR 
INT CHR#(212)::READ x ,y:LOCATE x, y: FRINT 
RAR 16,20: FRINT CHK#(214) 
:LOCATE 16,21:PFRINT CHR£(212) ; :LOCATE 1 
b,22: PRINT CHR£ (215) ;::LOCATE 16,24: FRINT 
CHKE (217): 

5910 READ x,y:LOCATE x,yY:FRINT CHR#(145) 
::LOCATE 17,20:FRINT CHRK#(212)5: 

5920 LOCATE 17,24:FRINT CHR#F(215)s:FOR i 

=1 TO Z3:READ x,y:LOCATE x,y:FRINT CHR&( 
143) 3::NEXT i 

5930 LOCATE 28,23:FRINT CHR£(2127) ; : READ 

#,VILOCATE K,y:FRINT CHR#(145): 

5940 LOCATE 29,19:FRINT dif::LOCATE 29,2% 

OL FRINT d£f::LOCATE 29,21:FRINT f1#s:LOC 

ATE 29,22:PRINT f2#:: 

5950 LOCATE 29,23:FRINT CHR#(215) ; : LOCAT 

E 29,84:FRINT CHR£ (217) 3; :LOCATE 30,24:FR 
INT CHR (215) 5: 

5960 FOR izi TO 2:READ x ,yiLOCATE x,y:FR 
INT CHR£(147%7)::NEXT is PEN 1 

270 LOCATE 1,1:FRINT'"'Four jouer ,appuyer 

:LOCATE 1,2:FRINT'"'sur une touche..,.";s 

980 GOSUR 4Z3O:FEN 1 

5990 CLS:FRINT "CAFITAL INITIAL: 250,500 

ou 1000 "ss FRINT'Tapez 1,2 ou fs": 

6000 INFUT ca:tIiF ca: OR caf1 THEN CLS:G 

OTO 5990 

6010 cazCINT(ca):scap(i)=290%x(2"(ca-1))sc 

ap(2)=#cap(1i):Vzl 

6020 CLS 

6030 FLOT (x-1)#16+2,(26-y)#16-4,1 

6040 DRAWR 26,0: DRAUWR O0,-2%6:DRAUR -26,0: 

DRAUWR 0,76 

6050 RETURN: 


“,sY!LOCATE x, ,y:FK 


‘fin de programme 


LECTEUR 5° 1/4 
(RP POUR AMSTRAD 


1 M OCTETS 
ZT TU d LE LS Le. = TTC 


FT @® LE JASMIN AM 5D 


le 2° lecteur double têtes, double ou quadruble densité, 
indispensable pour votre AMSTRAD 
CPC 464 - 664 - 6128 


JASMIN AM-5D* le lecteur double têtes Puissant mais Econome 


Plus besoin de retourner la disquette. La sélection se fait par inverseur avec LED bicolore. 


Lecteur 5” 1/4 JASMIN, AM 5 D+ - 1 M : double tête, quadruple densité, AM hs D + NOUVELLE VERSION 


720K formatté, entièrement compatible AMSDOS et CP/M/2,2, livré avec disquette É 
utilitaire de duplication, formattage et utilisation en 80 pistes .. 1699,00 F TTC AU M EM E PRIX 


Câble de liaison pour CPC 6128/664 ............. 155,00 F TTC e Boitier métallique | 

Adaptateur AD 12 - VDC : pour l'utilisation avec des moniteurs sans sortie e Interrupteur frontal : sélection de faces 

EN ET NN nd 60,00 F TTC e Led bicolore indiquant la face sélectionnée 
Kit de liaison du JASMIN AM5 D + : avec le PCW 8256/8512 250 F TTC e Pieds en caoutchouc 

Disquettes 5" 1/4, l'unité ........ D D area da 7,00 F TIC e Connexion facilitée à l'année 

Câble CENTRONICS pour AMSTRAD ............. 175,00 F TTC e Nouvelle conception 


e Finition plus agréable 


Les prix en boutique comprennent le port. 
AMSTRAD - CPC 464 . CPC 664 : CPC 6128 - AMSDOS sont des marques déposées d'AMSTRAD. JASMIN AM:5D est une marque déposée de T.R.A.N. sarl. CP M est une marque déposée de Digital Research 
Tous nos prix sont en fonction de nos stocks au 1°" Septembre 1986 


* 500 K et 1 M octets, non formattés 


PROTEGEZ 


C1 1111: r- 
F _ = 


CPC Revue standard Amstrad Schneider 
dossier classeur jean, logo et titre blanc 
Prix TIC : 74F 

Abonnés : S1F 


THEORIC, Revue des utilisateurs d’ORIC 


dossier classeur gris, logo titre rouge S S 
: 80F 


Abonnés : 59F 


Prix TTC 


MEGAHERTZ Magazine 


dossier classeur noir, logo et titre doré S @ LA & 
:78F 


Prix TTC 
Abonnés 


Nom ..... 


CPC 


Théoric 


MEGAHERTZ Abonnés 


:55F 


BON DE COMMANDE 


deb Hooiies ca PEéNOM is scaa ne ee mas es ds 


Non Abonnés 
Abonnés 
Non Abonnés 
Abonnés 
Non Abonnés 


+PORT 107% à la commande 


[] CPC AMSTRAD 11 numéros 
6 numéros 

[ Abonnement-essai 3 numéros 
AMSTAR 11 numéros 
PCompatible Magazine 11 numéros 


NOM 


3 REVUES POUR LES PASSIONNES 


CPC - REVUE DES UTILISATEURS D'AMSTRAD 
chez vous votre revue. Vous bénéficierez de réduction sur certains produits et vous recevrez gra- 
tuitement six numéros hors série (un tous les deux mois). 
AMSTAR : en avant première, toutes les nouveautés sur AMSTRAD -— des programmes, des arti- 
cles ! A la demande de nos lecteurs, nous prenons désormais les abonnements. 

PCompatible MAGAZINE : sortie prévue du numèro 1 mensuel le 13 février 1987. 


Attention, tous nos abonnés recoivent avant parution des souscriptions sur les nouveaux livres ! 


180F 
104F 
55F 
100F 
200 F 


Prénom 


Adresse 


en vous abonnant, vous recevrez 


A renvoyer à 
SORACOM 


Service Abonnement 
BP 11 — 35170 BRUZ 


Code postal 


Ville 


Date 


Merci d'écrire en majuscules 


copie. 


Signature 


Ci-joint un chèque libellé à l'ordre de : Editions SORACOM. Retournez le(s) bulletin(s) ou une photo- 


La place réservée aux petites annonces est 
limitée. En conséquence, celles-ci passent 
dans leur ordre d'arrivée. Par contre, les peti- 
tes annonces farfelues sont systématique- 


ment rejetées... De même, comme il est peu 
probable qu'il existe des ‘’généreux dona- 
teurs'’ de matériels ou de logiciels, les peti- 
tes annonces faisant appel à ces philantro- 
pes ne seront insérées que si la place libre 
le permet. 

Seront refusées toutes les annonces visant 
à vendre ou échanger des listes ou copies de 
logiciels non garantis ‘‘d'origine’”, ainsi que 
toute annonce incitant au piratage. 

En conséquence, réfléchissez bien avant 
d'envoyer vos textes. 

Les petites annonces doivent impérativement 
nous parvenir sur la grille (découpée ou pho- 
tocopiée), le texte étant rédigé à raison d’un 
caractère par case. 

Enfin, toute annonce non accompagnée de 
timbres ne sera pas insérée. 


Vends discs 3 pouces, pleines de logiciels, cause 
passage sur 5 pouces 1/4. Diers Sophie, BP6, 
76680 Saint-Saens, réponse assurée. 


Vends imprimante MT80, 1800, revues Amstmag, 
18 n°, 180 F, CPC 19 n°, 190 F, Amstrad 7 n°, 
100 F, Ams user, 230 F, AMTIX 12 n°, 120 F. 
49.63.02.73. 


Vends imprimante graphique Seikosha GP500A, 
ayant peu servi, 1000 F. Tél. 69.21.90.42. 


Vends micro-ordinateur TRS 80 + extension 
mémoire 32K + 2lecteurs disquette + impriman- 
te + manuels + doc. + livr. 3500F. Tél. 
69.21.90.42. 


Vends 256K RAM + silicon disk 64, disc CPM3.0, 
livres CPM3.0, Turbo-Pascal, Hisoft-C, 15 disc en 
tout, 1700 F. Langlois, tél. (1) 49.63.02.73. 


Echange Echosoft (disc original) contre Amstradeus 
(disc original) ou vends 350 F. Savier Tschambser, 
10400 Fontaine-Macon. 


Cherche phot. notices en franç. : 1815, Zen, Dam- 
bust. Zoïds, Spit. 40. Ad. Alagnou Pat., av. Maré- 
chal Joffre, 31800 Labarthe-Rivière. 


Vends K7 jeux originaux coffret fil, 80 F, Mono- 
poly, 80 F, Star Firebirds, 60 F. M. Ingles Jean, 
232, rue des Saules Scionzier, 74300 Cluses. 


Achète imprimante DMP 2000 + nombreux livres 
sur le CPC 6128 à un prix intéressant. De 18 h à 
21h, 42.00.87.32. 


Vends lect. DDI + nbrx livres prog. utilitaire + jeux 
+ Turbo-Pascal + Hisoft-C + Forth 
+ assembleur, 70 disc, 3500 F. Langlois, 
49.63.02.73. 


Vends répertoire téléphonique (disc), très perfor- 
mant, 100 F. Doc. contre timbre à 2,20 à M. Bau- 
din, 45, route de Royan, 17640 Vaux. 


Vends ordinateur T07 + 2 K7 de jeu et 1 langage 
basic + 2 livres + 2 manettes + 1 crayon opti- 
que + 1 magnétophone, 4000 F à débattre. Tél. 
76.32.07.94. 


Vends imprimante Tandy DMP 105 Centronic 
+ parallèle avec housse emb. origine, 1700 F. Tél. 
37.35.40.43, après 18h. 


Vends 464 mono + ext. mem 512 CPM + 5'' 1/4 
(704 ko) + souris + disk (3’’ et 5’) + livres. 
Jean-Luc, 61.20.54.54, le tt 6000 F, Mo de prg. 
en cadeau !! 


Vends pour PCW prog. Decrypt (déprotège prog. 
BASIC) + 3 util. + M. E. pour 65 F. M. Boulenger, 
6, sq. de Tocqueville, 78150 Le Chesnay. 


Vends log. orig. CPC 6128, éch. Softs pour 6128, 
cherche poss. Vortex F1X. Pour contacts tél. 
87.81.66.06, le soir après 20 h 30 (Gilles). 


Cause double emploi vends Amstrad CPC 464, 
couleur + logiciels + revues, 2000 F à débattre. 
Tél. 75.58.73.15. 


Vends CPC 464 couleur + joyst. + K7 jeux + 
manuel, peu servi, prix 2500 F. Eaubonne 95, tél. 
39.59.56.90. 


Vends livres Micro.A n° 1 à 9, très bon état, 60 % 
prix d'origine ou le lot à 700 F. Tél. 89.56.59.67. 


Vends CPC 464, mono + adperitl licthpen + nbrx 
livres + K7 program. jeux + lang. meuble, le tout 
2900 F. Langlois (1) 49.63.02.73. 


Vends Amstrad CPC 464, couleur, 2200 F. Tél. 
96.94.64.96. 


Vends revues Compting, 230 F, Amst. Action, 
160 F, nbrx livres français et anglais pour Amstrad. 
Liste sur demande, Langlois, (1) 49.63.02.73. 


Vends Amstrad, couleur, sous garantie + 50 jeux 
+ joystick + 2 livres, le tout 3500 F. Appeller 
Jérôme, tél. 39.51.08.05. 


Vends Amstrad CPC 464 vert + adap. couleur 
+ joys. + 50 jeux récents, 3000F. Tél. 
21.27.21.09, Michel, après 19 h, ordinateur s. 
garantie. 


Vends CPC 6128, mono + imprimante DMP1 
+ 4 livres + 10 disquettes + nombreux articles, 
4500 F. Tél. 69.43.05.16. 


PCW 8256 dans Intra-muros désirerais contacts, 
aides. Adr. Page René, n° 158822HD1-D44 O, 
Fleury-Mérogis, 91700 Ste-Geneviève-des-bois. 


Echange beach-head | (cassette) contre Asphalt 
(cass./disc). Poiget Olivier, tél. 94.66.25.91. 


Vends CPC 464 mono + DD1 (08/86) 
+ imprimante GP500 + adaptateur péritel 
+ logiciels + 3 joysticks, prix 4500F. Tél. 
48.60.12.44. 


Echange moniteur vert CPC 464 + 350 F contre 
moniteur couleur couleur CPC 464. Tél. 
40.91.15.23 en soirée. 


Vends pour Amstrad la bible (464), 130 F, sur disc 
Dams, 150 F, Cyrus Il, 90 F, Sorcery + 90 F, ral- 
longe moniteur, 90 F. Tél. 73.93.41.26. 


Vends Amstrad 664 avec moniteur couleur, état 
neuf, 3500 F. 31.98.48.93. 


Vends cause double emploi (cadeaux Noël) ass. 
dés. moni. neuf ‘’DAMS"”’, 300 F. Tél. bureau, M. 
Rousseau, 45.84.44.44, laisser mess. si absent. 


Vends Amstrad CPC 464 + jeux, bon état. Tél. 
28.69.34.89, après 18 h 30. 


LES PETITES ANNONCES ET LES MESSAGES 


Attention, vos PA seront mises sur le serveur avant la parution du journal 


Coupon à renvoyer accompagné de 3 timbres à 2,20 F à: 
SORACOM, La Haïie de Pan —- 35170 BRUZ 


Gagnez du temps ! Sur Minitel 36.15, tapez MHZ 
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Vends Amstrad CPC 664 monochrome + lecteur 
de cassettes + joystick + housses + 18 logiciels 
+ documentation, t. b. ét., le tout 2800 F à débat- 
tre. Tél. 61.65.25.46, après 18 h 30. 


Possesseur 464 + disk cherche correspondant 
pour échange divers (programmes sur disk, notices, 
etc.). Alexis Letournel, 27, rue Kellogg, 92150 
Suresnes. Tél. (1) 42.04.52.99. 


A.M.I. tunisien club amst. cherche contact n. afric. 
et franç. C/O magid Ben Cheikh, 8, rue des Genêts, 
Bard 02000, tél. (2161) 22.35.28. 


Vends Z7 logiciels origin., dont Scrabble They sold 
a million 1, Il, Fuonamis, jeux, loto, microjapiens, 
K7 CPC hedolog., 300F. J.-P. Spiteri, t. 
42.83.39.40. 


Echange 120 logiciels (jeux + utilitaires) contre 
DD11 (3 ans maxi) je prends les frais de port des 
K7. Tél. aux h. r., 63.61.21.81. 


Vends un ZX Spectrum + joystick et 20 logiciels 
et une imprimante Alphaco.1 32, le tout 2000 F. 
Tél. 56.71.54.21. 


Cherche contacts pour échanges logiciels, casset- 
tes, disquettes d'origine, merci. Demander Philippe, 
tél. 47.98.66.85. 


Achète 800 F moniteur couleur pour CPC 464. Tél. 
98.83.73.44, après 19h. 


Vends unité centrale CPC 464, 1100 F, crayon 
optique, 150 F, logiciels 50 à 150 F, ZP82, 200 F. 
Jean Gigon, tél. 54.77.11.64, le midi. 


CPC 6128 cherche correspondants sérieux pour 
échanges d'idées. Tél. 98.39.62.36, M. Allain 
Didier, 31, cité des Pins, 29116 Moëlan/mer. 


CPC 464 échange programmes divers. Ecrire à 
Baup Frédéric, rue des Fossés, 55200 Vignot. 


Vends CPC 664 (mono) + magnéto K7 + cordon 
de raccord + nbreux logiciels/diskettes + boîte de 
rangement disk + livre. Tél. 39.78.69.72, 3000 F. 


Vends CPC 464, mono, 1700 F. Ph. Richard, 22, 
rue Quénéah-Guen, 56390 Grand-Champ. 


Grande affaire : vends Amstrad CPC 464 + lecteur 
de disquettes (sous garantie) le tout 2500 F, région 
lyonnaise. Tél. 78.23.99.39. 


Vends ‘’Amstrad en famille’, livre, échange, 
commando-Kung-Fu, etc., contre Scrabble et prog. 
éduc. 8 à 10 ans. Tél. 49.57.29.27, après 19h. 


Vends CPC 6128 mono + lect. K7 + DMP 2000 
+ 20 discs dont 250 progs (jeux + util.) soit 4500 
ko, le tout 7000 F. Thierry au 53.23.92.78 ou 
56.48.29.56. 


Vends graphiscope Il, neuf, complet, avec log. 
500 F à débattre. Tél. 64.91.31.29. 


Cherche contact CPC 6128 région parisienne (3'’ 
et 5 1/4 Vortex) jeux et logiciels. Nicolas, 
48.93.89.94, après 17 h 30 et le week. 


Vends CPC 464 monochrome + DD1I1, 3500 F, 2e 
lecteur de disquettes, + 1000 F. Tél. Boudet P. 
60.80.15.55. 


Vends Amstrad 664 avec moniteur couleur, état 
neuf, 3500 F. 31.98.48.93. 


Vends imprimante DMP 3000, état neuf, très peu 
servi, 1700 F. Tél. 48.98.95.38, demander Sté- 
phane après 18h. 


Vends CPC 464 mono + lecteur DD1 + light pen 
DKTronics + nombreux livres, 3000 F. Téléphoner 
au (1) 48.82.19.07, après 19h. 


Vends disk origin. (20MBI-FER et FL-Sapiens.…..) à 
50 % du tarif ou échange contre jeux nouveaux. 
Demander Julien au 46.47.52.19. 


Vends VG5000 + joysticks + livre + cassette 
(foot) + lecteur cassettes, état neuf, px 2400 F. 
Tél. (1) 64.58.52.38. 


Urgent cause changement ordinateur vends MO5 
+ lect. de K7 + livres, valeur neuve 3000 F, 
vendu 1990 F. Tél. 39.57.42.76. di 


Achète DDI1 pour CPC 464, prix 1200 F maxi- 
mum, éventuellement avec disks. Contacter Fré- 
déric au 74.60.25.26, après 17h. 


Echange TVC 1980, 51 cm, en état, OK, contre 
IMPP.DMP2000 ou lecteur FD1 Amst. Chabanol, 
5, r. des Pierrelais, 92320 Chatillon. 


Vends ordinateur Amstrad PCW 8256, avec impri- 
mante, prix intéressant. Tél. 88.30.65.61. 


Auteur Vera Cruz et Sidney vend son compacteur 
graphique, 200 F, Amstrad. Blancon Gilles, 6 km 
rte Babata, 97234 Fort-de-France. 


Vends 6128 couleur + magnéto + livres 
+ joystick + 30 programmes + disqu., état neuf, 
avec emballage, 4100 F. Tél. 46.48.31.45. 


Vends CPC 664 monochrome (excellent état) 
+ magnéto + joysticks + nbr. jeux et utilitaires 
+ 6 disquettes, 3000 F. Tél. 94.67.93.98 (Varl). 


Vends Spectrum 48K + péritel + documentation 
+ 100 jeux + imprimante + magnéto, 1700 F. 
Téléphonez après 18 h au 20.56.62.07. 


Vends TRS80 N1 L2, interface 64K, lecteur disc, 
moniteur vert, 1500 F ou contre imprimante ou 
ordinateur portable. Tél. 48.70.48.79. 


Vends jeux d'origine, Zombi, TT Racer, Sorcery etc. 
Ecrire à annie Chaigeau, résidence Les tilleuls, 25, 
rue de la cordette, 79000 Niort. 


Vends CPC 664, mono, 08/85, + 99 disq., ds 
emballage, cse double emploi, 3000. Patrick, 
45.28.65.42, soir. 


CPC 464 cherche modem avec logiciel digitelec, 
très urgent. Faire offres tél. 94.77.84.11. 


Recherche notices utilitaires ou jeux + pagemaker. 
M. Bourin, 38, rue Gay-Lussac, 59130 Lambersart. 
Tél. 20.92.69.15, ap. 18h. 


Vends Supersound pr sono tous Amstrads en Hi- 
Fi, sans fil (émetteur subminiat. autonome), 235 F, 
Franco. Tél. 90.55.91.65, pr doc. 


Vends CPC 464 mono, 1800 F. Tél. 46.38.17.95, 
le soir, 92 Issy-les-Moulineaux. 


Vends CPC 6128 mono + joystick + 20 logiciels, 
prix intéressant. Vitry/Seine, tél. 46.80.41.66, le 
soir. 


Vends Amstrad CPC 464, coul. + joystick 
+ livres, prix 2500F (peu servi). Tél. 
42.83.67.18, le soir. 


Vends CPC 6128, couleur + synthé vocal + 60 
jeux + 20 util. + 2 joysticks + magnéto + câble 
+ livre et revues, le tout 5800F. Tél. 
93.93.02.34. 


Echange The Ultimat Fight sur disquette contre un 
autre jeu. Z. D., 42, rue Brossolette, 90000 Bel- 
fort ou tél. 84.21.84.98. 


Vends ordinateur Atari 800XL + moniteur 
+ lecteur K7 + jeux + programme + manuel, 
état neuf, année 85, 2500 F à débattre. Téi. 
39.61.80.94 


Vends CPC 6128 coul. + joystick + micro applic. 
10 et 16 + nomb. revues et jeux + 12 disq. 
4000 F. Tél. 81.35.50.06, ap. 19h 


Vends CPC 6128 mono + DMP-2000, garantie 
+ souris + joystick + livres + disquettes 
+ logiciels + magazines, prix 4900F. Tél. 
46.26.35.63. 


Vends CPC 6128 mono + 5°’ 1/4 à 1Mo + 80 dis- 
quettes + revues + livres + magnéto + plein de 
prog. Alex au 55.84.20.92, week-end seulement. 


Vends EXL100 + lect. K7 + 12 K7 div. + guid. 
+ liv. + 2 cart. ROM + cart. Exel Basic, idéal pr 
début, px 1400 F. Tél. 78.59.63.99, le soir. 


Etudiant possesseur d'un 664, couleur cherche 
club Amstrad sur Toulouse. Laisser message au 
61.55.78.88. 


Vends Amstrad PCW 8256 + imprimante 
+ disquettes. Tél. 60.72.34.91, après 20 houle 
week-end. 


Vends drives 5’ 1/4 Df DD, 720ko, garantie 
6 mois, prix 500 F. Tél. (1) 48.67.28.69. 


Vends synthé techni musique pour CPC 464, 664, 
6128, neuf, prix 400 F. Tél. 66.81.20.01, après 
19h. 


Vends CPC 464, couleur + drive DDI1, 3800 F, 
drive 51/4, Jasmin, sous garantie, 1500 F, livres 
et revues. 86.28.21.31, Cosne/Loire. 


Vends CPC 664, mono + joystick, documentation 
+ imprimante série parallèle, disquet. Tél. (1) 
30.57.34.76, après 19 h, le tout 4000 F. 


Vends K7 orig. (Super test, Eden blue, Bruce Lee, 
30 Megacode, Magic paint, Millionnaire, 50 F 1 ou 
300 F le tout). Tél. 34.78.75.59. 


Vends ZX81 + 16k + K7 + livre + revues, 
600 F. Vends ‘‘’Calcumat'’ de M.A. emb. + disk 
+ notice d'origine. Tél. 26.82.53.10, ap. 20h. 


Vends CPC 464, couleur avec ext. mémoire Vor- 
tex 512K, 2500 F. Tél. 78.05.59.65. 


Vends CPC 464, couleur + livres + logiciels ini- 
tiation BASIC, 2200 F (seulement). M. Clymans, 
tél. 43.00.06.27, Mayenne. 


Vends lect. DDI + 7 disq., 1400 F, multiface Il, 
450 F, 20 jeux originaux, 50 F 1,3 livres CPC 60 F 
1, revues, donnés si achat. Tél. 45.67.69.77. 


Vends CPC 664, coul. + joystick + livres 
+ 35 disks pleins, le tout est en très bon état, 
3500 F. Tél. 99.96.38.36, après 20 h. 


Vends 664, couleur + magnéto, 3000F. Tél. 
39.82.38.74. 


Vends CPC 464, mono, 2000 F, imprimante Bro- 
ther M1009, interface para + série, 2200 F. Tél. 
21.69.34.92, Lens. 


Vends pour CPC 464 bible du programmeur, 199 F, 
Hisoft Pascal, 399 F, Hunter Killer, 50 F, CPC n° 
1 à 12, 14 à 17, Amstrad mag. 1 à 19. Tél. 
27.90.47.64. 


Vends Canon V20, cse dble emploi, 500 F, jeux 
Amstrad CPC 464, La geste, 100 F, Macadam 
Bumper, 70 F (originaux). Tél. (1) 69.28.87.29. 


Vends CPC 6128, couleur, garantie sept. 1987 
+ nbreux jeux disquettes originaux (les meilleurs 
jeux du moment : 30 environ), 5000 F le tout, 
acheté 7550 F. M. Astié raymond, Le Clos des 
Vignes, Bt D, 26, rue Victor-Hugo, 83270 Saint- 
Cyr-s.-mer. 
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REPORT TOTAL GENERAL A + B PRE, 


RELIURE CPC ANCIENS NUMEROS 
+ port 10% Franco de port 


Pour conserver vos revues intactes Attention, n° 1 à 5 et 9 épuisés 
OÛ 6 
abonné 58 F O 8,10,11,12,13,14, 15,16, 17, 18 
[ non abonné 74F D 7 
Hors série n° 1 avec cassette 


NOUVEAUTES CO Hors série n° 2 sans cassette 
+ port 10% Entourez le (ou les) numéro(s) commandé(s). 


[ La pratique des imprimantes ‘ CASSETTES 
Michel ARCHAMBAULT 95 F Franco de port 

[] Apprenez l'électronique sur AMSTRAD 
Michel ARCHAMBAULT 95 F 1 cassette représente un numéro 
1 exemplaire AMSTAR n° 10F abonné 

[ non abonné 


LIVRES [ abonnement cassettes (11 n°) 
+ port 10 % Je commande les cassettes n° 


O Communiquez avec AMSTRAD DISQUETTES 
D. BONOMO - E. DUTERTRE 90 F Franco de port 
D Jouez avec AMSTRAD 
KERLOCH 48 F 1 disquette contient 2 n° consécutifs de CPC 
Programmes utilitaires pour AMSTRAD — Disquette n° 1 comprend CPC 1 et2 
Michel ARCHAMBAULT 85F — Disquette n° 2 comprend CPC 3 et 4 
L'Univers des PCW — Disquette n° 3 comprend CPC 5 et 6 
Patrick LEON 119F — Disquette n° 4 comprend CPC 7 et 8 
Cassette — Disquette n° 5 comprend CPC 9 et 10 
Communiquez avec AMSTRAD 190 F — Disquette n° 6 comprend CPC 11 et 12 
Disquettes — Disquette n° 7 comprend CPC 13 et 14 
Communiquez avec AMSTRAD 250 F — Disquette n° 8 comprend CPC 15 et 16 
L'Univers du PCW — Disquette n° 9 comprend CPC 17 et 18 
Patrick LEON 150 F Ü abonné 110F 
[ non abonné 140 F 
A:TOTAL [ abonnement disquettes (6) 600 F 
Je commande les disquettes n° 
B : PORT 10% TOTAL GENERAL FRANCO 


A + B TOTAL GENERAL Port en sus 10 % pour envois par avion 


NOM : Prénom : 


Adresse : 


Code postal : Ville : 


Date : Signature : 


Merci d'écrire en majuscules. 
Ci-joint un chèque libellé à l'ordre de : Editions SORACOM. Retournez le(s) bulletin(s) ou une photocopie à : Editions SORA- 
COM - La Haie de Pan - 35170 BRUZ. 


114 


Es E. 


Technique de la BLU de G. RICAUD 
Concevoir un émetteur 
expérimental de P. LOGLISCI 
interférences radio et télévision 

de F. MELLET. Comment y remédier 
Propagation des ondes 

de S. CANIVENC 

Tome 1 

Tome 2 

La réception des satellites météo 

de L. KUHLMANN 

Les synthétiseurs de fréquences 
Télévisions du monde 

de P. GODOU - La réception 

des images lointaines 


Collection de poche 


CT La manœuvre 
du catamaran de croisière 


NOM : 


95 F 
69 F 
35 F 
165 F 
253 F 
145 F 
125 F 


110F 


Adresse : 


Code postal : 


Date : 


Merci d'écrire en majuscules. 


LIRE POUR S'INFORMER 


Bretagne Edit’ Presse 

met un service vente par correspondance à 
votre disposition. 

(Vous pouvez consulter la liste des produits 
sur Minitel 36.15 — MH2) 


C] Traité radio maritime 

de ROGER 

Un livre pour vous aider 

à passer la licence radio marine 
Transat Terre-Lune 

de G. PIGNOLET 

Du rêve à la réalité 


Recevez un exemplaire 
pour vous informer sur le contenu 


C] Astrologie Pratique (mensuel) 
CT] Vision cinéma (mensuel) 


Informatique 
CT Communiquez avec ORIC 

de D. BONOMO et E. DUTERTRE 
L'ORIC à nu 

Communiquez avec ZX81 

Jouez avec MO5 

Plus loin avec Canon X07 


Prénom : 


Ville : 


Signature : 


Ci-joint un chèque libellé à l'ordre de : BRETAGNE EDIT’ PRESSE. Retournez le(s) bulletin(s) ou une photocopie à : 
BRETAGNE EDIT" PRESSE - La Haïe de Pan — 35170 BRUZ. 
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35170 BRUZ 


